Select Code to Download

#!/usr/bin/perl

...
   print $q->end_html;

exit;

my $file = "http://www.perlmonks.org/index.pl?node=newest%20nodes%20xm
+l%20generator";