Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $C = CGI->new;
if($C->referer eq 'some URL'){ process_page(); }
else{ bounce_page(); }