#!Perl -w
use strict;
use Mail::Sender;
my $time = localtime;
my $subj_line = "Price Change Worksheet for $time";
my %file = ('employee@theirjob.com'=>'P:\\PCW1.TXT','storeowner@aol.com'=>'P:\\PCW2.TXT');
my $work = 'me@work.com'; 
foreach (keys %file) {

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