Select Code to Download

$msg = $pop->top($popnum);
print $msg;

my $head = $pop->top($popnum);
print @{$head};

print @{$pop->top($popnum)};