use MIME::QuotedPrint qw(encode_qp);
use Encode qw(encode);

$subject = encode_qp(encode("UTF-8", $subject));