...
$msg->send or die "Error sending email!";
...

##</code><code>##

    $smtp->mail( $args{From}, %opts ? \%opts : () )
      or die "SMTP mail() command failed: $!\n"
             . $smtp->message . "\n";