open(EMAIL, "email.txt"); 
while(<EMAIL>){ 
        chomp; 
        my $val= $_; 
        push(@email, "'$val'");} 
close(EMAIL); 
my $email = join ",", @email; 
my %mail; 
open(MSG, "message.txt"); 
while (<MSG>){ 
        if ($_ =~ /^subject:(.*)/){ 
                $mail{'subject'} = $1;} 
        else{ 
                $mail{'msg'} .= $_;}} 
                                                   
my $sender = Net::SMTP->new ('mailhost', Debug=> 1); 
  $sender->mail('anywhere@home.com'); 
  $sender->to($email); 
  $sender->data(); 
  $sender->datasend ("From: Home\n");   
  $sender->datasend ("Subject: $mail{'subject'}\n\n"); 
  $sender->datasend ("\n"); 
  $sender->datasend ("$mail{'msg'}"); 
  $sender->dataend(); 
  $sender->quit();