Select Code to Download

print "Content-type: text/plain\n\n";

...

print Dumper $headers;
print "\n\n--------------\n\n";

$VAR1 = {
          'headers' => {
...


--------------