use Net::SMTP;

print "Content-type:text/html\n\n";

my $relay="relay.demo.net";
my $smtp="Net::SMTP->new($relay);

die "Could not open connection: $!" if (! defined $smtp);

$smtp->mail("Bate");
$smtp->to("admin@demo.net");
$smtp->data();
$smtp->datasend("To: admin@demo.net\n");
$smtp->datasend("From: admin@demo.net\n");
$smtp->datasend("Subject: Test1");
$smtp->datasend("\n");
$smtp->datasend("This is a test ...\n");
$smtp->dataend();
$smtp->quit;

print "Completed ...\n";