my $address = param('Addr'); my $message = param('Mssg'); my $SMTPHOST = 'mail.xxxxxxx.us'; my $username = 'xxxxx@xxxxxxx.us'; my $password = 'xxxxx'; my $SENDTO = 'xxxxx@earthlink.net'; my $smtp = Net::SMTP_auth->new($SMTPHOST); $smtp->auth('CRAM-MD5' ,$username ,$password); $smtp->mail(); $smtp->to($SENDTO); $smtp->data(); $smtp->datasend("From: $username\n"); $smtp->datasend("To: $SENDTO\n"); $smtp->datasend("Subject: Web Contact\n"); $smtp->datasend("\n\n"); $smtp->datasend("\n\n$message\n\n"); $smtp->dataend(); $smtp->quit();