#usr/bin/perl
use Net::SMTP;
use Tk;
$mw=MainWindow->new(-background=>"black");
$mw->title("Email sender ....");
$mw->minsize(280,270);
$mw->maxsize(280,270);
$mw->Label(-text=>"\nEmail Sender 0.1 by Ciro1992\n",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Label(-text=>"Tua Email :",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Entry(-textvariable=>\$da)->pack(-anchor=>"n");
$mw->Label(-text=>"Destinatario :",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Entry(-textvariable=>\$a)->pack(-anchor=>"n");
$mw->Label(-text=>"Oggetto :",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Entry(-textvariable=>\$ogg)->pack(-anchor=>"n");
$mw->Label(-text=>"Testo :",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Entry(-textvariable=>\$testo)->pack(-anchor=>"n");
$mw->Button(-text=>"Invia",-background=>"black",-foreground=>"green",-command=>sub{
$sw=MainWindow->new(-background=>"black");
$smtp = Net::SMTP->new("mail.libero.it", Hello => "provider", Timeout => 50) || die "Errore di connessione al server SMTP\n";
$smtp->mail("$da") || die "Indirizzo di origine non valido\n";
$smtp->to("$a") || die "Destinazione non valida\n";
$smtp->data();
$smtp->datasend("From: $da\n");
$smtp->datasend("To: $a\n");
$smtp->datasend("Subject: $ogg\n");
$smtp->datasend("\n");
$smtp->datasend("$testo");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
$sw->title("Send.....");
$sw->minsize(100,60);
$sw->maxsize(100,60);
$sw -> Label(-text=>"Email Sender.",-background=>"black",-foreground=>"green")->pack;
})->pack(-anchor=>"n");
MainLoop;
