(program1.pl)
$projectSourceDir ='/absolute/path';
chdir $projectSourceDir;
print "Do cvs update ...\n";
	
open INFO, "cvs update -dP |";
my @cvsInfo = <INFO>;
close INFO;
my $cvsInfo= join("", @cvsInfo);
		
print "$cvsInfo";
print "done\n\n";