use MIME::Words qw(:all);   

my $msg = MIME::Lite -> new (
    From     => 'xx@xx.de',
    To       => 'yy@yy.de',
    Subject  => encode_mimewords('Testmail: ä ö ü Ä Ö Ü'),
    Type     => 'text/html',
    Encoding => 'quoted-printable',
    Data     => $html
    );

$msg -> send;