##

#!/usr/bin/perl

use warnings;
use strict;

use CGI qw/:standard/;

print header;

print "your page is $ENV{'HTTP_REFERER'}";

##

##

your page is http://www.domain.com/cat/11/index.shtml