26 lines
589 B
Perl
26 lines
589 B
Perl
#!/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(); |