#! /usr/bin/perl -w
#

# if /usr/share/perl5/Mail/POP3Client.pm :
#use Mail::POP3Client;

use strict;
use Getopt::Long;
use Net::POP3;
use Net::SMTP;
use MIME::Parser;

##=========================
# Modifier le nombre de message
# à supprimer $nbdel
#
# Remplacer dans la section DATA
# à la fin du script,
# pop.free.fr login password
# par votre login de connexion 
# au serveur pop et votre mot de
# passe.
##=========================

## Date et heure
my $nowtime = localtime;
print "$nowtime\n";
## nombre de message à supprimer:
my $nbdel = 500;

## Boucle des adresses mail
while (<DATA>) {
    chomp;
    my ($server,$login,$pass) = split/\s/;

    printf "-----------------------------\n";

    my $cnx;
    my $pop = Net::POP3->new($server) or $cnx++;
    if($cnx) {
	warn "Impossible de se connecter à $server\n";
	next;
    }

    my $fail;
    my $num = $pop->login($login, $pass) or $fail++;
    if($fail) {
	warn "$login mot de passe incorrect\n";
	next;
    }

    if($num > 0) {
	print " $server Compte: $login\n";
	print "Nombre de Message(s) = $num\n";
	
	    for my $mess(1..$nbdel) {
		    $pop->delete($mess);
		    print " Message $mess Supprimé!!!\n";
	    }

    }
    else {
	print "Aucun message pour $login\n";
    }

	$pop->quit();

}

printf "----------- END -------------\n";   

## Comptes POP ##

__DATA__
pop.free.fr login password