Select Code to Download

#!perl;

...
} else {
   print "It didn't work!->" . $response->code . "\n"
}

#!perl;

...
my $htmcode = $resp->{_content};

print "here comes the output...\n$htmcode\n";