my $mailprog = '/usr/lib/sendmail';


foreach my $dirContent ( @dirContents ) 
{ 
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "Reply-to:jc\@home.com\n";
print MAIL "Subject: $dirContent\n";
print MAIL"The file $dirContent is attached.\n";
}
close (MAIL);