Help for this page
#!/usr/local/bin/perl ... print $mailer <<@message; close($mailer) or die "can't close mailer: $!";
#!/usr/local/bin/perl ... $mailer->close() or die "can't close mailer: $!"; } close INFO;