Your CGI object has a referer attribute, which specifies what URL called the script URL.

my $referer = new URI($q->referer);
[download]

--
TTTATCGGTCGTTATATAGATGTTTGCA