#!/usr/bin/perl

use warnings;
use strict;

use CGI qw/:standard/;

print header;

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