gistfile1.PL

#!/usr/bin/perl -w

use strict;
use warnings;

use feature qw/say/;

sub search($) {
  my $path = shift;

  say "Path: $path";

  for my $file (glob($path.'/*')) {
    -d $file ? &search($file) : say "\t$file";
  }
}

map {search($_)} grep +(-d $_), <*>;