Select Code to Download

#!/usr/bin/perl

...
print Dumper $x, $y;

__END__

$VAR1 = {
          'foo' => 1
...
          'bar' => 2,
          'baz' => 3
        };