Select Code to Download

#! /usr/bin/perl
use warnings;
...
    say "Found $h->{a}{b}{c}" if Dive($h, qw( a b c ));
}
print Dumper $h1, $h2;

Found 42
$VAR1 = {};
...
                          }
                 }
        };