Select Code to Download

#!/usr/bin/perl
use strict; use warnings;
use YAML::XS;
...
  subkey_a: foo
  subkey_c: bar
...

$VAR1 = {
          'key2' => {
                    'subkey_a' => 'foo',
...
                  },
          'key1' => $VAR1->{'key2'}{'<<'}
        };

#!/usr/bin/perl
use strict; use warnings;
use YAML::XS;
...
    }
    return $ref;
}

$VAR1 = {
          'key2' => {
                    'subkey_b' => 'qwer',
...
                    'subkey_a' => 'asdf'
                  }
        };

@_=qw;
Just another Perl hacker,;
;$_=q=print
"@_"= and eval;