Select Code to Download

#!/usr/bin/perl

...
print "\n";

if($ENV{REMOTE_ADDR} =~ '10.10.0.1') {

the code

}

exit if ($ENV{REMOTE_ADDR} =~ '10.10.0.1');

unless ($ENV{REMOTE_ADDR} =~ '10.10.0.1') {

the code

}