or download this
19:50 >perl -MNet::SMTP -wE "my $smtp = Net::SMTP->new('invalid'); say
+ 'Next'; if (defined $smtp) { say 'SMTP defined' } else { say 'SMTP u
+ndefined'; say $@; } say 'Still alive';"
Next
...
C:\Perl\Strawberry\strawberry-perl-5.20.0.1-64bit-PDL\perl\lib
+\Net\SMTP.pm: 2.33
19:50 >