1 # Stash.pm -- show what stashes are loaded
8 my @arr=scan($main::{"main::"});
9 @arr=map{s/\:\:$//;$_;} @arr;
10 print "-umain,-u", join (",-u",@arr) ,"\n";
15 foreach my $key ( keys %{$start}){
17 unless ($start eq ${$start}{$key} or $key eq "B::" ){
19 foreach my $subscan ( scan(${$start}{$key})){
20 push @return, "$key".$subscan;