sub send_mail {
   my $msg = shift;
   # send mail here...

   warn $msg;
   exit;
}