use Cvs;

my $cvs = new Cvs
(
    '/common/project/CVSROOT',
    cvsroot => ':pserver:test@cvs.com:/cvs',
    password => 'secret'
) or die $Cvs::ERROR;

my $status = $cvs->status('/home/test1/trunk/build.xml');
print $status;
if($status->is_modified)
{
    print "moddified";
}
else
{
    print "unmodified";
}