It is always a good idea to use the Debug option for trying to hunt down problems with Net::SMTP

$smtp = Net::SMTP->new($mailhost, Debug => 1) || die "Error: $!";
[download]