#!/usr/bin/perl 
  use strict; 
  use warnings; 
  use Email::Send; 
  use Email::Simple::Creator; 
 
  my $Hotmail = Email::Simple->create( 
      header => [ 
          From    => 'you@hotmail.com', 
          To      => 'someone@gmail.com', 
          Subject => 'Test Hotmail', 
      ], 
      body => 'The server is down. Start panicing.', 
  );     
  
  my $sender1 = Email::Send->new( 
      {   mailer      => 'SMTP', 
          mailer_args => [ 
              Host =>     'smtp.live.com:25', 
              ssl => 1, 
              username => 'username@hotmail.com', 
              password => 'password', 
          ] 
      } 
  ); 
   
  eval { $sender1->send($Hotmail) }; 
  die "Error sending email: $@" if $@;

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 $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;