Net::SMTP でメール送信

#!/usr/bin/perl

use strict;
use Net::SMTP;

my $smtpserver = 'mail.hoge.com';
my $port = 25;
my $from = 'hoge@hogehoge.com';
my $to = 'foo@foobar.com';

my $smtp = Net::SMTP->new($smtpserver, Port => $port);
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: mod test\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;

exit;