Select Code to Download

#!/usr/bin/perl
use strict;
...

eval { $sender->send($email) };
die "Error sending email: $@" if $@;

# mostly cribbed from Email::Send::SMTP
sub send {
...
        || croak(
        'Email::Send::Gmail: error connecting to server smtp.gmail.com
+');
...