$smtp = Net::SMTP->new('smtpmail.server.com')
   or die "Couldn't connect to SMTP server\n";