and the CGI-ish way is:

use CGI;

$query = new CGI;
$referer = $query->referer();
# or do something you want with $query->referer()
[download]

-- tune