use CGI;
my $query = $ENV{QUERY_STRING} || $ENV{REDIRECT_QUERY_STRING} || '%68%69.example.com';
my $domain = CGI->unescape( $query );
print CGI->header;
print "$domain\n";
__END__
Content-Type: text/html

hi.example.com