#!/usr/bin/perl -w
use IO::Socket;
my $sock = new IO::Socket::INET (
                                 PeerAddr => 'smtp.unilim.fr',
                                 PeerPort => '25',
                                 Proto => 'tcp',
                                 );
die "Could not create socket: $!\n" unless $sock;
 
print "entrez le nom de la machine source pour l'envoi : ";
$sourcehost = <STDIN>;
chomp $sourcehost;
print $sock "EHLO $sourcehost\r\n";
 
print "entrez l'adresse de l'expediteur : ";
$from = <STDIN>;
chomp $from;
print $sock "MAIL FROM:<$from>\r\n";
 
print "entrez l'adresse du destinataire (vous pour le test) : ";
$to = <STDIN>;
chomp $to;
print $sock "RCPT TO:<$to>\r\n";
 
print $sock "DATA\r\n";
 
print "entrez le sujet du mail : ";
$subject = <STDIN>;
chomp $subject;
print $sock "Subject:$subject\r\n";

print $sock "To:$to\r\n";

print "entrez un personne en CC du mail qui n'y ait pas en fait: (vide sinon)";
$cc = <STDIN>;
chomp $cc;
print $sock "Cc:$cc\r\n" if $cc;

print "Vous avez le choix dans la date (format Fri, 22 Nov 2013 10:02:42 +0100): (vide sinon)";
$date = <STDIN>;
chomp $date;
if ($date)
{
    print $sock "Date:$date\r\n";
}
else
{
print $sock "Date:Fri, 22 Nov 2013 10:02:42 +0100\r\n";
}
 
print "entrez le corps du mail (sur une ligne) : ";
$body = <STDIN>;
print $sock "$body\r\n";
 
print $sock ".\r\n";

print $sock "QUIT\r\n";
    while($b=<$sock>)
    {
        print $b;
    } 
close($sock);