What may be more accurate than the referrer is the virtual_host and the script_name. If you're using CGI.pm, then there's always this:

return $query->virtual_host()." - ".$query->script_name();
[download]

Where $query is your CGI object. I got this from the perl CGI documentation located here. Of couse I could be way off for what you need. If you add a little more description of your situation and some code, we may be able to assist you further.

    --jb