Select Code to Download

sub sub_c
{
...

    print "sub_c arguments: " . Dumper \%hash1c;
}

[05:25][nick:~/monks]$ cat 1134864.pl
#! perl
...
sub_c( %hash1a );

__END__

[05:25][nick:~/monks]$ perl 1134864.pl
calling sub_b
...
          'key1' => 1
        };