Vill varna dig för att lita på http-headen "Referer". Den funkar inte klockrent i alla fall.
Är det mod_perl du pratar om?
I så fall letar du nog efter "headers_in" och funktionen get.
Exempel här:
http://www.informit.com/articles/article.a...=27110&seqNum=6
Men som sagt, tror du kommer råka i problem med denna lösning..
Happy coding!