#!/usr/local/bin/perl -w

$file = "examen_quimica";
$new = "examen_fisica";
ver("/home/");

sub ver{
    my $DIR = shift ;
    print "DIR-> $DIR\n";
    opendir DIR, $DIR or warn "Cannot open $DIR";
    my @files = readdir DIR;
    closedir DIR;
    for my $i (@files){
	next if ($i=~/^\.\z/ || $i=~/^\.\.\z/);
	print "$i\n";
	if ($i eq $file){
	    rename $file, $new;
	    print "mv $file $new\n";
	}
	$newdir = $DIR.$i."/";
	if ( (chdir $newdir) ){
	    ver($newdir);
	}
    }
}
__END__