use strictures;
use CGI ":standard";
use URI;

my $requested = URI->new( CGI::url() );
$requested->query( $ENV{QUERY_STRING} || $ENV{REDIRECT_QUERY_STRING} )
    if url_param();

print header(),
    start_html(),
    h1("OHAIURI"),
    blockquote($requested),
    end_html();