open(BANNED, "<$banned") or die "Cannot open $banned because: $!";
while(<BANNED>) {
   if ($_ eq $ENV{REMOTE_ADDR})
   {
     print "<font color=red>Your IP has been banned, you are not allowed to use this script.</font>\n";
     exit;
    }
}
close(BANNED);