19:50 >perl -MNet::SMTP -wE "my $smtp = Net::SMTP->new('invalid'); say 'Next'; if (defined $smtp) { say 'SMTP defined' } else { say 'SMTP undefined'; say $@; } say 'Still alive';"
Next
SMTP undefined
Net::SMTP: Bad hostname 'invalid'
Still alive

19:50 >p5u v Net::SMTP
Net::SMTP
        C:\Perl\Strawberry\strawberry-perl-5.20.0.1-64bit-PDL\perl\lib\Net\SMTP.pm: 2.33

19:50 >