Help for this page

Select Code to Download

Select or download this

ref ($sender = new Mail::Sender ({from => $mailf[2], smtp => 'localhos
+t'}))
    || die "Sender error: $sender, $Mail::Sender::Error!\n";
ref ($sender->MailFile({to => $mailf[0], subject => $mailf[1], msg => 
+"@body", file =>$mailf[4]}))
    || die "Sender error, $sender, $Mail::Sender::Error!";