#!/usr/bin/perl -w
use Net::SMTP;
$server = 'server.mail';
$from_address = 'fr[email protected]';
$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();
|
|