Select Code to Download

#!/usr/bin/perl

...
eval "$dump; 1" or die $@;

print Dumper($VAR1);

$VAR1 = {
          'test1' => [
...
                       $VAR1->{'test1'}[0]
                     ]
        };