use Mail::Sendmail;
my $me = "me@aicompro.com";
  my %mail = ( To      => $me,
            From    => $me,
            Message => "This is a very short message",
smtp => 'mail.aicompro.com'


           );
  sendmail(%mail) or die $Mail::Sendmail::error;