Select Code to Download

sub Send_Msg {
   my ($to, $from, $subject, $body) = @_;
...
    ## the following is the offending statement
    $msg->send || die "MIME::Lite->send failed: $!\n";
}

   $msg = MIME::Lite->new(From=>...);
   $msg->send || die "you DON'T have mail!";

    eval { $msg->send };
    die "MIME::Lite->send failed: $@\n" if $@;