open(BANNED, "<$banned") || die "Can't open $banned: $!";
while(<BANNED>) {
   chomp;
   if($_ eq $ENV{REMOTE_ADDR}) {
      print "... you are banned ...";
      exit;
   }
}
close BANNED;