#!/usr/bin/perl -w

@all = split(/?/,$ENV{'HTTP_REFERER'});
$where = @all[1];

die $where;