Select Code to Download

 
$sender->Open( ... ) or die "Error: $Mail::Sender::Error\n";

sub mymail {
   my( $to, $text ) = @_;
...
   };
   warn "Errors: $@\n" if $@;
}