Perl implementacija finda

[Lego Andy]

Hojla!

A ima kdo kako idejo kako narediti znotraj perla nekaj takega
kot unix find?

Torej:
	@file = findFile( "lala.txt")

Bo v @file dalo vse mozne poti do fajla lala.txt.
A ima kdo kako drugo idejo kot:

    sub findFile
	iscifile = $_[0]
	direktorij = $_[1]
	pojdi v direktorij ( direktorij )
	odpri directorij X
	for fajl v X
		pot = fajl
		fajl =~ s/.*\///;
		if fajl ==  iscifile
			push @nasel, pot
		if pot je direktorij
  			pot =~ s/\/[^\/]*$//;	
			push @nasel, findFile ( iscifile, pot )
	return @nasel

		Andy