Select Code to Download

#!/usr/bin/perl
use strict;
...
print Dumper $result;
print Dumper $result2;

$VAR1 = {
          'results' => [
...
                     ]
        };