Mail POP3::Client ??

[Chris Zampese]

Greetings and salutations to you all,
   Trying to get POP3 to work.  I have a program that should get all the headers and 
subjects from the pop3 server, but it displays none, and if I put a check in to see 
how many messages there are it says there are none, despite me having sent myself some 
to test it!! I am working through a network, so my ISP has given me a name and 
password for "wildcard" collection on fbu.co.nz.  There are about 10 users that have 
email ending in this.  I have no idea what I am doing wrong and as always any help 
would be greatfully accepted, 
   Thanks,
         Chris.


use Mail::POP3Client;
use strict;

    my $pop = new Mail::POP3Client(
     HOST => 'Pop3.xtra.co.nz',
     USER => 'AButchart',
     PASSWORD => 'broker1',
DEBUG=>1
     );
    $pop->Connect();
    for( my $i = 1; $i <= $pop->Count(); $i++ ) {
        foreach( $pop->Head( $i ) ) {
            /^(From|Subject):\s+/i && print $_, "\n";
        }
    }
    $pop->Close();