use File::Find;
my $myRoot;
$myRoot = "/home/50000";

find(\&myFileFilter, $myRoot); # ab Verzeichnis $myRoot suchen

sub myFileFilter
{
    my $File;

  #$_ enthält kompletten Pfad (Verzeichnis und Dateinamen)
  #$File::Find::dir enthält aktuelles Verzeichnis
  $File::Find::dir = "10047";
  #$File::Find::name = "test.html";

}
print find(\&myFileFilter, $myRoot);