Mega Code Archive

 

Categories / Perl / Network

 

Sending mail with Net

#!/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();