#!/usr/bin/perl
my $prefix = shift;
while (<>){
next unless m{^(/.*),$};
#print "$prefix$1\n"
`cvs -z3 co $prefix$1`
 ;
}