use strict;
use warnings;
use MIME::QuotedPrint;
print MIME::QuotedPrint::encode("ä"); # =C3=A4=