use strict; # ALWAYS!
use Net::SMTP; # Yes, this will work on windows.

# You need to fill in the variables.
# Read the perldoc for more info on using SMTP.

my $smtp = Net::SMTP->new('$mailserver_url') or die $!;
$smtp->mail( $from );
$smtp->to( $to );
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n"); # done with header
$smtp->datasend($message);
$smtp->dataend();
$smtp->quit(); # all done. message sent.
[download]