Select Code to Download

#!/usr/bin/perl

...

print "match:  $match\n",  Dumper($match);
print "match2: $match2\n", Dumper($match2);

my %test = (
    hula => 1,
...

print "test:  $testclone\n",  Dumper($testclone);
print "test2: $testclone2\n", Dumper($testclone2);

 $ perl -V
Summary of my perl5 (revision 5 version 10 subversion 1) configuration
+:
...
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=und
+ef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef