my $smtp = Net::SMTP->new(...) or die "Can't connect to mailserver";