my $banned = "banned.txt";


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

close(BANNED);