use MIME::Lite;
use MIME::Lite::HTML;
use CGI qw/:standard/;

my $html_mail = "file://home/thalunil/nl.html";

# Datum fuer Subject Erzeugung
my ($sec,$min,$hour,$mday,$mon,$year,
          $wday,$yday,$isdst) = localtime time;
$mon = ++$mon;

my $mimeMail = new MIME::Lite::HTML;
$mimeMail->parse($html_mail);

while(<>) { 
    my $to = $_;
    chomp($to);
#Include Type ist fuer EInbettung von Bildern
#    my $mailHTML = new MIME::Lite::HTML
#          TextEncoding => '8bit',
#	  #IncludeType => 'extern',
#          From => 'Fixies-Redaktion <info@fixies.de>',
#	  To => $to,
#	  Subject => "Fixies Newsletter vom 20. November 2006";
#    my $MIMEmail = $mailHTML->parse($html_mail);	  
    my $mailHTML = new MIME::Lite
                   TextEncoding => '8bit',
	           From => 'Fixies Redaktion <info@fixies.de>',
	           To => $to,
                   Subject => "Fixies Newsletter vom 20. November 2006";
    $mailHTML->attach($mimeMail);
    $mailHTML->send;
    my $counter = ++$counter;
    print "$counter  ";
}

print "\n$counter Mails gesamt\n";