Select Code to Download

sub ...
{
...
   my $msg = MIME::Lite->new (%params);
   my $result = eval {$msg->send};
}