Select Code to Download

use strict;
use CGI;
...
sub print_content {
  print "<p><a href=\"http://www.google.ca\">Go To Google</a></p>";
}

use strict;
use Log::Log4perl qw(:easy get_logger);
...
  $logger->info($tmp);
  return;
}

2012/09/26 15:52:32> Request: GET http://localhost:9080/cgi-bin/cgi.re
+direct.pl?r=1,    User-Agent: libwww-perl/6.02,    (no content)
2012/09/26 15:52:32> Response last request: http://localhost:9080/cgi-
+bin/cgi.redirect.pl?r=1
...
Previous: undef
The content is: 
2012/09/26 15:52:32> The URL "http://localhost:9080/cgi-bin/cgi.redire
+ct.pl?r=1 " was successfully retrieved.