use File::Find;

find(\&run, '.');
sub run{
  system("bla.exe $File::Find::name");
}