Select Code to Download

#!/usr/bin/perl

...

print "content:\n", $mech->content();

perl test.pl
all forms:
...
 </body>
</html>