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