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();