unless ($get
        && $get =~ /^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[1-9][0-9]{0,2}$/
        && !grep { $_ < 0 || $_ > 255 } split(/\./, $get) )
                { print "BAFFLING: invalid target specified\n"; exit(-1);}