use Mail::Mailer ;

print { 
.::Mail-spam script by Russian Net Hunters team [runthes.ru]::.

                   Coded by FurA [ICQ - 752235]
                            Greetz 2 nerezus [ICQ - 547097]
      };

open (fromid, 'fromid.txt') or die "No file to open" ;
  $from=<fromid>;
 
open (to, 'to.txt') or die "No file to open" ;
  @to=<to>;
  
open (subject, 'subj.txt') or die "no file to open";
  $subject=<subject>; 
  
$mailer = Mail::Mailer->new;

for ($i=0, $i <= @to, $i++){
   
          $mailer->open({From = $from,
               To = $to[$i],
           Subject = $subject});
      or die "cant open : $!\n";
      $mailer->close;}