$smtp = Net::SMTP->new('smtpmail.server.com', Debug => 1);