#!/usr/bin/perl -w
use strict;
use CGI;

my $C = CGI->new;
if($C->referer eq 'some URL'){ process_page(); }
else{ bounce_page(); }