Help for this page

Select Code to Download

Select or download this

open( MAIL, "| $sendmail -t" )
 or die "Can't start $sendmail : $!\n";
...
print MAIL ".";
close(MAIL)
 or die "Failed to send the mail: $! $?\n";