#!/usr/bin/perl -w
use strict;
use warnings;
use File::Find;

find( { wanted => \&wanted, follow => 1, no_chdir => 1 }, '.' );

sub wanted {
    system 'svk', 'propset', 'svn:keywords', 'Id', $File::Find::name;
    #print system 'svk', 'propget', 'svn:keywords', $File::Find::name;
}