21 lines
499 B
Perl
21 lines
499 B
Perl
|
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";
|