my $smtp = Net::SMTP->new('mail.mydomain.com');
$smtp->mail($fromaddr);
$smtp->to($to);
$smtp->data();
$smtp->data("Subject: $subject\n\n");
$smtp->data($message);
$smtp->dataend();
$smtp->quit;