sub pop_header
{
@popst = $pop->popstat();
$popnum = $popst[0];
print "Header of message $popnum being retreived.\n";
@array = $pop->top($popnum);
print "@array\n";
}


##</code><code>##

Header of message 23 being retreived.
ARRAY(0x2cbf0)