my $checkout = "co -q -l";
my $checkin = "ci -u -q -m\"Modification of $domain\"";

## check out file from rcs
system("$checkout $revdns")
  or warn "Problems with checking out $revdns : $!\n";

## move the tmp file into its place
move("$tmp_revdns","$revdns")
  or warn "Problems moving $tmp_revdns to $revdns : $!\n";

## check the new file into rcs
system("$checkin $revdns")
  or warn "Problems with checking in $revdns : $?\n";

print "inverse dns records created!\n";