#!/usr/bin/perl -w

use strict;
##use Email::Simple;
use Net::POP3;
use Net::POP3::SSLWrapper;
pop3s {

my$server = 'pop.wanadoo.fr';
##la tu dois mettre ton identifiant de connexion
my $login = 'serge******';
##la tu dois mettre tonmot de passe
my$passwd = '*****';

$| = 1;

print "connecting to $server..\n";
my $pop = new Net::POP3 $server
  or die "error: can't connect to $server: $!\n";
print "ok\n";

$pop->login($login,$passwd);
$pop->ok or die "error: wrong username or password\n";

my($undelete,$size) = $pop->popstat;
my$last = $pop ->last;

print "mail box size: $size\n",
      "$undelete unread mail(s).\n",
      "last read mail was number $last\n\n";

my$fetched = 0;

for my $num (1..$undelete) {
  my$msg = $pop->get($num);
  next unless ref $msg;
  $fetched += $pop->list($num);
  printf "\rfetched %2.0f%%",$fetched *100/$size;
  $pop->delete($num);
}

print $/;
$pop->quit;
}