#!/usr/bin/perl 

# Globals
$mail_server = "pop.myprovider.net";
$user = "mylogin\@myprovider.net";
$pass = "mypassword";
# The last know good message number
$last = "1650";

use Net::POP3;

$pop = Net::POP3->new($mail_server) or die "cannot open $mail_server : $!\n";
$pop->login($user, $pass) or die "Cannot login to $mail_server : $!\n";
$messages = $pop->list or die "Can't get message list: $!\n";
foreach $msgid (keys %$messages) {
	if ( $msgid < $last ) { print "Deleting msg $msgid\n"; $pop->delete($msgid); }
}

$pop->quit;