#!/usr/bin/env perl
use strict;
my $dir;
open(A, 'cvs status 2>&1 |') or die "could not execute 'cvs status'";
while(<A>)
{
    if(/cvs status: Examining (.+)\s*$/)
    {
	if($1 eq ".") {
	    $dir="";
	} else {
	    $dir=$1;
	}
    }
    if(/File\:\s+(.+?)\s+(Status\:.+)\s*$/)
    {
	next if $2 eq 'Status: Up-to-date';
	print "$dir/" if $dir;
	print "$1\t$2\n";
    }
    if(/^\?/)
    {
	print;
    }
}
close(A);