#!/usr/bin/perl -w -ni.bak -00

use strict;

BEGIN {
    local $/ = "\n";
    print "please enter the domain name: ";
    use vars qw($targetdomain);
    chomp ($targetdomain = <STDIN>);
}

print unless /^zone\s+"$targetdomain"/;


##</code><code>##

perl zonedel.pl /home/blackice/hello