#!/usr/local/bin/perl 
open(FIND,"find . -print |") || die "can't  find anything";
while (<FIND>) {
    chop;
    if (-d $_) {
	chomp($cwd = `pwd`);
	chdir($_);
	print STDERR "now in:$_\n";
	system("~mikilon/Scripts/samename.pl");
    }
    chdir($cwd);
}