localonly();
...
...
...

sub localonly {
   if ($ENV{'SCRIPT_FILENAME'}) {
      die "localonly -- $ENV{'REMOTE_ADDR'}";
   }
}