$smtp = Net::SMTP->new("$servername", Debug => 1); print "$@\n";