my $smtp=Net::SMTP->new('mailserver', Debug => 1);