use MIME::Base64;

my $charset = 'your charset';
my $subject = 'your subject, containing non-ASCII chars';
my $header = "=?$charset?B?".encode_base64($subject)."?=";