use MIME::Lite;

MIME::Lite->send('smtp', 'smtp.my-isp.net', Timeout => 60);

$msg = MIME::Lite->new(
        From    => '"My Name" <me@here.com>',
        To      => '"Your Name" <you@there.com>',
        Subject => 'Test from WinXP',
        Data    => 'Hi!');

$msg->send or die "Error sending email!";

print "Email sent.\n";