my $smtp = Net::SMTP->new($server, Hello=>"dude!", Timeout=>20, Debug=>1) or die;

# Debug makes Net::SMTP spew the session to your STDERR.