Select Code to Download

use strict;
use warnings;
...
if (param('go')) {
   print pre(map "$_: @{[param($_)]} \n", param);
}

use strict;
use warnings;
...
$agent->click('go');

print ($agent->{content} =~ /<pre>(.*)<\/pre>/s);