#!/usr/bin/perl

use strict;

my @files = @ARGV;

# make a backup, remove the file from cvs (and delete), commit
for my $file (@files) {
	system "mv $file $file.bak";
	system "cvs remove -f $file";
}
system "cvs commit -m \"changing to -kb: step 1 remove\" @files";

# put the file back in place, add with -kb, commit
for my $file (@files) {
	system "cp $file.bak $file";
	system "cvs add -kb $file";
}
system "cvs commit -m \"changing to -kb: step 2 readd\" @files";