#!/usr/bin/perl if ( defined $ENV{'HTTP_REFERER'} and $ENV{'HTTP_REFERER'} =~ /dumdomain\.com/ ) { print "Location: http://www.anotherpage.com\n\n"; exit(0); } print "Content-type: text/html\n\n"; ...