Select Code to Download

#! /usr/bin/perl -w

...
}

print Dumper(\%data);

$VAR1 = {
          'foo2' => {
...
                     'c' => '3'
                   }
        };