use Mime::Lite
MIME::Lite->send('smtp', $exchange_server_name_or_ip_address, TimeOut=>60);
my $msg=MIME::Lite->new (
 From=>"$from_name <$from_email_address>",
 To  =>"$to_email_address",
 Subject=>"$subject_of_email",
 Type=>'text',
 Data=>$body_of_email
);
$msg->send;