my $smtp = Net::SMTP->new(....) or &do_some_stuff $!;