use MIME::Lite; 
# set up email
$to = "myname\@domain.com";
$from = "myname\@domain.com";
$subject = "Email Sent via Perl";
$message = "This email was sent using Perl.";

# send email
email($to, $from, $subject, $message,);

# email function
sub email
{
 # get incoming parameters
 local ($to, $from, $subject, $message) = @_;

 # create a new message
 $msg = MIME::Lite->new(
  From => $from,
  To => $to,
  Subject => $subject,
  Data => $message
 );

 # send the email
 MIME::Lite->send('smtp', 'microsoft.exchange.server', AuthUser=>'myname', AuthPass=>'my_password', Debug=>1);
 $msg->send();
}