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