5 local(*stab) = eval("*_$package");
6 while (($key,$val) = each(%stab)) {
10 print "\$$key = '$entry'\n";
14 foreach $num ($[ .. $#entry) {
15 print " $num\t'",$entry[$num],"'\n";
19 if ($key ne "_$package" && defined %entry) {
21 foreach $key (sort keys(%entry)) {
22 print " $key\t'",$entry{$key},"'\n";