#!/usr/bin/perl
while (<>){
if ($_ =~ m|^\+\+\+ (.*)\t|) {
#print "$1\n"
`cvs -z3 co $1`
 ;}
}