Select Code to Download

#!/usr/bin/perl -w

...
$smtp->close() or die "Can't close mailer: $!";
print "Mail sent.\n";