1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
use strict;
use Net::POP3;
use Email::Simple;
print "please give me the address of your pop server : ";
my $server=<STDIN>;
print "\nplease give me your login : ";
my $login=<STDIN>;
print "\nplease give your password : ";
my $passwd=<STDIN>;
$|=1;
print "\nconnecting to $server...";
my $pop=new Net::POP3 $server
or die "ERROR : can't connect to $server : $!\n\n";
print "[OK]\n";
$pop->login($login,$passwd);
$pop->ok or die "ERROR : wong name or password\n\n";
print "Connexion [OK]\n";
$pop->quit; |
Partager