Perl email küldés karakterkódolási gondokkal

Sziasztok!

Van egy egyszerű kis script-amivel küzdök már egy idelye több-kevesebb sikerrel, ezért kérném a segítségeteket..
Az ismert kliensek gond nélkül szépen lekezelik, /OExpress, TBird, Gmail/ viszont a vipmail vmiért kódolási hibákkal jeleníti meg. Mit csinálok rosszul?


#!/usr/bin/perl -w
use strict;


my $sendmail = "/usr/lib/sendmail -t";
my $reply_to = "From: cim\@domain.hu\n";
my $bcc = "Bcc: \n";
my $subject = "Subject: Tárgy szövege!\n";

open(LOGFILE, ">send.log");
open(ADDRESSFILE, "

#Pihentetes
sleep(1);

while()
{
my($line) = $_;
chomp($line);

#Nyomonkovetes
print LOGFILE $line."\n";

open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL $reply_to;
print SENDMAIL $subject;
print SENDMAIL "To: ".$line."\n";
print SENDMAIL 'Content-type: text/html; charset="UTF-8"';

open(CONTENTFILE, "
while()
{
my($txtline) = $_;
print SENDMAIL $txtline;
}
close(SENDMAIL);
}

print "Mail sent \n";

Most tanulgatom a perl-t ezért elnézést, ha kicsit egyszerű, vagy hibás a kód...

Köszönöm a segítséget!