Select Code to Download

use Encode qw(decode);
use URI::Escape qw(uri_unescape);
my $string = decode 'utf-8' => uri_unescape $input;

use Encode qw(encode);
use HTML::Entities qw(encode_entities);
my $output = encode_entities encode 'utf-8' => $string;

#!/usr/bin/perl -w

...

print "Content-Type: text/html\n\n";
print read_file "$page.html";

http://example.com/page.cgi?page=page.cgi%00blah!

$string =~ tr/\x00-\x09\x0b\x0c\x0e-\x1f//d;

#!/usr/bin/perl -wT

...

print "Content-Type: text/html\n\n";
print read_file "$page.html";