7 use warnings;

     7 use warnings;

     8 use if $ENV{DEBUG} => 'Smart::Comments';

     8 use if $ENV{DEBUG} => 'Smart::Comments';

     9 use Getopt::Long;

     9 use Getopt::Long;

    10 use Pod::Usage;

    10 use Pod::Usage;

    11 use File::Copy;

    11 use File::Copy;

    14 use DNS::Vi;

    12 use DNS::Vi;

    15 

    13 

    16 sub slurp {

    14 sub slurp {

    17     local $/    = undef;

    15     local $/    = undef;

    18     local @ARGV = @_;

    16     local @ARGV = @_;