if (tester()){

}

sub tester{
  return unless $ENV{'HTTP_REFERER'};
  return if $ENV{'REMOTE_ADDR'} eq "129.215.67.96";
  return 1 if ( ($ENV{'REQUEST_URI'} =~ /FalseIfJustThis/) && ($ENV{'REQUEST_URI'} =~ /ButIfAlsoThisThenTrue/) ); 
  return if $ENV{'REQUEST_URI'} =~ /FalseIfJustThis/; 

  my @bad = ( '/bulletin/',
              '.css',
              '.ico',
              'formmail.',
              '/prosp/',
              '/calendar/',
              '/edit/',
              'tmp/calendar2002-3/pgradh/regs/029.html',
	      'FalseIfJustThis',
	    );
  return if $ENV{'REQUEST_URI'} =~ /\Q$_\E/ foreach(@bad);
  return 1;
)