Select Code to Download

use strict;
use warnings;
...
    my $msg = MIME::Lite->new ((To => 'to', ));
    my $result = eval {$msg->send};
}