Select Code to Download

#!/usr/bin/perl -w

...
}

print Dumper(data_for_path('.'));

$VAR1 = {
          'perl.1' => undef,
...
          'perl.recursive_data' => undef,
          'perl.callbacks' => undef
        };