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

$msg -> send;