use strict; use CGI qw(:standard); use URI::Escape; my $referrer = escapeHTML(uri_escape($ENV{REFERRER})); print < HTML