#!/usr/bin/perl -wT
use strict;

print "Content-type: text/html\n\n";

print "<p>Request_URI contained: " . join( ' ', map {"[$_]"} split '/', $ENV{REQUEST_URI}) . "</p>\n"; 
print "$_ => $ENV{$_}<br />\n" for sort keys %ENV;