use strict;
use warnings;
use Email::Simple;
use Net::SMTP::SSL;
use Net::SMTP::TLS;

my $to = 'someone@example.com';
my $msg = "Test";
my $from = 'username@hotmail.com>';
my $smtphost = 'smtp.live.com';
my $subject = 'Test Hotmail';

my $Hotmail = new Net::SMTP::TLS( 'localhost',
        Hello   =>      'smtp.live.com',
        Port    =>      25,
        Debug   =>      1,
        User    =>      'username@hotmail.com',
        Password=>      'password'
        );

$Hotmail->mail($from);
$Hotmail->to($to);
$Hotmail->data();
$Hotmail->datasend("From: " . $from . "\n");
$Hotmail->datasend("To: " . $to . "\n");
$Hotmail->datasend("Subject: " . $subject . "\n");
$Hotmail->datasend("\n");
$Hotmail->datasend($msg . "\n");
$Hotmail->dataend();
$Hotmail->quit;