Select Code to Download

#!/usr/bin/perl
#
...
print Dumper($h);

exit 0;

$VAR1 = {
          'notexist' => {},
...
          'notdefined' => {}
        };