#!/usr/bin/perl
my @list = ();
while (<>){
if ($_ =~ m|^RCS file: /cvsroot/(.*),v\r?$|) {
#print "$1\n"
push @list, $1;
#`cvs -z3 co $1`
 ;}
}
my $files = join ' ', @list;
`cvs -z3 co $files`;