#!/usr/bin/perl
my $a;
while (<>){
 if ($a) {
  if ($_ =~ m|^retrieving revision (.*)\r?$|) {
   `cvs -z3 co -r $1 $a`;
#   print "cvs -z3 co -r $1 $a\n";
   $a=0;
  }
 } else {
  if ($_ =~ m|^RCS file: /cvsroot/(.*),v\r?$|) {
   $a=$1;
  }
 }
}