Select Code to Download

#!/usr/bin/perl

...

print "QUERY: $s\n";
print Dumper($query);

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