#!/usr/bin/perl

$dir1 = "/root/test1"; # Checkout Dir
$dir2 = "/root/test2"; # CVS

opendir(BIN, $dir1) or die "Can't open $dir: $!";
while ( defined ($file = readdir BIN) ) {
    push(@fl,$file) unless $file =~ /^\.\.?$/;         
}
closedir(BIN);


foreach $key(@fl) {

if(! -e "$dir2/$key") {
system (`cp "$dir1/$key" "$dir2/$key"`);
}
else {
$cvs_modi = (stat("$dir1/$key"))[9];
$client_modi = (stat("$dir2/$key"))[9];

if($cvs_modi > $client_modi) {
system(`cp "$dir1/$key" "$dir2/$key"`);
}
else {
print "No need to copy.\n";
}

}

}