#!perl -w use Apache;
use Apache::Request;
use Apache::Cookie;
my $r = Apache::Request -> new(shift);