$smtp = Net::SMTP->new('outgoing.verizon.net',Debug=>1); 
if ($smtp eq ""){
   print "Error connecting to Mail server\n";
   print "Your message has not been sent\n";
   die;
}
$smtp->auth('myuserid','Password');