You might want to have a look at Net::SMTP, which comes with the Perl distribution.

Makeshifts last the longest.