Select Code to Download

#!/usr/bin/perl
use strict;
...
## view

print "\nResponse = ".$res->content;

#!/usr/bin/perl -w

...

    print "Response = \n ".$mech->content( format => 'text' );