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