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