Select Code to Download

#!/usr/bin/perl -w
use strict;
...
};

print Dumper($test);

$VAR1 = {
          'code' => sub { "DUMMY" },
...
                    ],
          'test' => 1
        };