#!/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 $sock "Hello there!\n";
# while(<STDIN>)
# {
#     print $sock $_;
# }
print "entrez le nom de la machine source pour l'envoi : ";
$sourcehost = <STDIN>;
print $sock "EHLO $sourcehost\r\n";

print "entrez l'adresse de l'expediteur : ";
$from = <STDIN>;
print $sock "MAIL FROM:$from\r\n";

print "entrez l'adresse du destinataire (vous pour le test) : ";
$to = <STDIN>;
print $sock "RCPT TO:$to\r\n";

print $sock "DATA\r\n";

print "entrez le sujet du mail : ";
$subject = <STDIN>;
print $sock "Subject:$subject\r\n";

print "entrez le corps du mail (sur une ligne): ";
$body = <STDIN>;
print $sock "$body\r\n";

print $sock ".\r\n";

close($sock);