# Set the smtp variables.
$server = "mysmtpserver";		
$sender = "$userName\@mydomain.com";
$addr = "$userName\@mydomain.com";

$subject = $cgi->param('subject');
$body = $cgi->param('EmailBody');			
$body =~ s/\r\n/\n/g;			

my $smtp = Net::SMTP->new($server);
$smtp->mail($sender);
$smtp->to($addr);
$smtp->data();
$smtp->datasend("From: $sender\n");
$smtp->datasend("To: $addr\n");			
$smtp->datasend("Subject: Status Report $subject_date\n");
$smtp->datasend("$body\n");