Argument "him@here.com','C:/test1.txt" isn't
numeric in array element at C:\SCRIPTS\hash.pl line 27.

##</code><code>##

print() on closed filehandle Symbol::GEN1 at C:/Perl/site/lib/Mail/Sender.pm lin
e 1229.
print() on closed filehandle Symbol::GEN1 at C:/Perl/site/lib/Mail/Sender.pm lin
e 816.
print() on closed filehandle Symbol::GEN1 at C:/Perl/site/lib/Mail/Sender.pm lin
e 832.
print() on closed filehandle Symbol::GEN1 at C:/Perl/site/lib/Mail/Sender.pm lin
e 921.
print() on closed filehandle Symbol::GEN1 at C:/Perl/site/lib/M
ail/Sender.pm line 1246.
print() on closed filehandle Symbol::GEN1 at C:/Perl/site/lib/Mail/Sender.pm lin
e 1248.
readline() on closed filehandle Symbol::GEN1 at C:/Perl/site/lib/Mail/Sender.pm
line 1250.

##</code><code>##

'him@here.com','C:/test1.txt'
'her@there.com','C:/test3.txt'
'it@where.com','C:/test2.txt','C:/test1.txt'

##</code><code>##

#!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;
}