use strict;
use Net::SMTP;

my $sender = $ENV{USER};
my $recipient1 = 'john@hotmail.com';
my $smtp = Net::SMTP->new('mailhost.com');

$smtp->mail($sender);
$smtp->recipient($recipient1);
$smtp->data();
$smtp->datasend("To: $recipient1");
$smtp->datasend("From: $sender");
$smpt->datasend("Subject: some subject");
$smtp->datasend("");
$smtp->datasend("This is the body");
$smtp->datasend("");
$smtp->quit;