#!/usr/bin/perl -w

use Net::SMTP;

$server       = 'server.mail';
$from_address = 'from@mail.com';
$to_address   = 'to@mail.com';

# If you have problems, turn on debugging output.
#$mailserv = Net::SMTP->new( $server, Debug => 1 );
$mailserv = Net::SMTP->new( $server );
unless ($mailserv) {
   die "Could not connect to server $server, $!\n";
}

# Note multi-line string. See Chapter 2.
$data ='Subject: This is a subject.
This is a test.

Oh, joy.';


$mailserv->mail( $from_address );
$mailserv->to( $to_address );
$mailserv->data( $data );
$mailserv->quit();