#!/usr/bin/perl

use Net::POP3;

$numArgs = $#ARGV + 1;

if ($numArgs != 3) {
        die "Usage: rmpop3 [server] [username] [password]\n";
}

$server = shift;
$user = shift;
$pass = shift;

print "Deleting messages from $server as $user using password $pass...\n";

$pop = Net::POP3->new($server);
$tot = $pop->login($user,$pass) or die "Couldn't login to server.\n";
print("$tot messages\n");
for($i = 0; $i<$tot; $i++){
        $pop->delete($i);
        print("$i ");
        $| = 1;
}
$pop->quit();