my $msg = MIME::Lite->new(
     From    =>  'test@test.com',
     To      => 'test@test.com',
     Subject => Mail::Message::Field::Full->new(charset => 'iso-8859-1')->encode('!Hey‘ This is a αινσϊδλοφόρΡ mail!'),
     Type    => 'text/html',
         Encoding => 'quoted-printable'
     Data => q{
         <h1>αινσϊδλοφόρΡ</h1>
    }
);
$msg->attr('content-type.charset' => 'ISO-8859-1' );
$msg->send;