Select Code to Download

use strict;
use warnings;
...
DiveVal( $href, @pathparts ) = 'value';

print Dumper( $href );

$VAR1 = {
          'dir1' => {
...
                                }
                    }
        };