Select Code to Download

#!/usr/bin/perl -w

...

print Dumper($c);
__END__

$VAR1 = {
          'cat1' => {
...
                      'sub1' => {}
                    }
        };