my $rcs = '$Id: dnsmod,v 1.17 2001/07/20 20:10:14 root Exp root $';



my ($garbarge, $garbage, $version) = split(/ /, $rcs);