#!/usr/bin/perl -wT
#
# Script:  Dynamic Dungeon Siege IP Database Deactivate IP Script
# Author:  Guildencrantz
# Version: 4-13-02
#

use strict;

use CGI::Carp 'fatalsToBrowser';
my $userIP = $ENV{REMOTE_ADDR};

my $activeIPsPath = "/var/www/cgi-bin/ds/database/activeIPs";

dbmopen(my %activeIPs, $activeIPsPath, 0666)
	or die "Cannot open activeIPs database: $!";

if(exists $activeIPs{$userIP}) {
        delete($activeIPs{$userIP});
...