This is a CGI script, yes?

Check the HTTP_REFERER environment variable. Yes, it's mis-spelled, but we make do. :)

If you're using mod_perl, use

$r->header_in('Referer')
[download]

where $r is an Apache::Request object.

Keep in mind that the refer(r)er variable isn't always set extremely reliably by browsers.