open(BANNED, "<$banned");
while(<BANNED>) {
   print "GET AWAY!" if ($_ eq $ENV{REMOTE_ADDR});
}
close BANNED;