#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel4 - scripts        Copyright(c) 2011 cPanel, Inc..
#                                 All rights Reserved.
# copyright@cpanel.net      http://cpanel.net
# This code is subject to the cpanel license. Unauthorized copying is prohibited
print "What ip do you want to unblock? ";
my $ip = <STDIN>;
$ip =~ s/\n//g;

open( HA, "/etc/hosts.deny" );
my @HA = <HA>;
close(HA);
open( HA, ">/etc/hosts.deny" );
foreach my $line (@HA) {
    if ( $line !~ / ${ip}$/ ) {
        print HA $line;
    }
}
close(HA);
system("/sbin/ip -4 route del $ip");