#!/usr/bin/perl
use warnings;
use strict;

use Net::POP3;

my $pop = Net::POP3->new('your.pop3server.com') 
    or die "Net::POP3 new failed";
my $msgs = $pop->login('username', 'password') 
    or die "Login failed - check the user/pass";
print "Deleting $msgs messages from POP3 server\n";
$pop->delete($_) or die "Failed to delete msgnum $_" 
    for (1..$msgs);
$pop->quit;