Select Code to Download

# untested, but close.
$blocked = Cache::FileCache->new(
...
deny_access if is_blocked('192.168.254.1');
unblock('192.168.254.1');
block('192.168.254.13', 'never');  # block forever!

$is_blocked = $dbh->prepare('
SELECT 1 FROM blocks WHERE
...
16842752    4294901760   (1.1.0.0 255.255.0.0)

will block everything under 1.1.0.0/16

tie %blocks, 'Tie::Foo', 'the_block_file';
sub block { $blocks{shift} = 1 }
sub unblock { delete $blocks{shift} }
sub is_blocked { exists $blocks{shift} }