Help for this page

Select Code to Download

Select or download this

%msgs= $pop->list();
for $msg (keys %msgs) {
...
     $msgnum++;
}
print "\nthere is $msgnum messages\n"