#!c:/perl -w
use Mail::Sender;
my $time = localtime;
my $subj_line = "Price Change Worksheet for $time";
my $work = 'me@work.com'; 

open(LIST, "c:/email.txt") or die $!;
my @files;
while(<LIST>) {
  s/^'//;
  s/'\n?$//;
  @files = split /','/, $_;
  my $email = shift @files;

my $sender = new Mail::Sender( {smtp => 'mail.domain.com',from => $work}) || die "$Mail::Sender::Error\n";
$sender->OpenMultipart( {to => $email,
                        subject => $subj_line});
$sender->Body;
$sender->SendLine('Here are the price change worksheets.');
$sender->SendFile(
  {description => 'Text File',
   encoding => 'Base64',
   file => \@files})
and print "Mail was sent OK." || die "$Mail::Sender::Error\n";
$sender->Close;
}