#This code not tested

my @dirs = '.';
while(my $dir = shift @dirs) {
  opendir(DIR,$dir);

  while(my $entry = readdir(DIR)) {

    if(-d $entry) {
      push @dirs, "$dir/$entry";
    } else {
      #do something for files/links etc
    }

  }

  closedir(DIR);
}