Simple Mailer In Perl

Just Wanna Share With you Readers The Fact That a Mailer Is something very Useful And I wanna Share a Simple I Made With you...


Here Is The Code:

#!/usr/bin/perl
# By Dedalo
# www.seguridadblanca.org
print "Mailer By Dedalo\n";
print "educative\n";
use Net::SMTP;
print "your mail or mail you wanna use:";
$from = ;
print "mail of who recieves:";
$para = ;
print "subject:";
$asunto = ;
print "message here and you can use perl syntax to write (jump line, etc):";
$mensaje = ;
print "smpt server:";
$host = ;
$smtp = Net::SMTP->new("$host",
Hello => "$host",
Timeout =>25,
Debug =>1,
);
die "No conexion made";
print $smtp->domain,"\n";
$smtp->mail("$from");
$smtp->to("$para");
$smtp->data();
$smtp->datasend("To: $para");
$smtp->datasend("From: $from");
$smtp->datasend("Subject:$asunto\n");
$smtp->datasend("$mensaje");
$smtp->dataend();
$smtp->quit();

hope you like My Simple Code...


Regards
Dedalo