【解決で500P】：Perlで階層を走査したい

こんな感じでどうでしょうか。

use File::Basename;

# entry : サーチするディレクトリ
# depth : 階層の深さ(tabインテンドの表示数)
sub my_walk
{
  my $entry = $_[0];
  my $depth = $_[1];

  my $type  = "";

  $type = "(d)" if (-d "$entry/");
  $type = "(s)" if (-l "$entry/");

  print "|\t" x $depth, "+---->", basename($entry), $type, "\n";

  return if (! -d "$entry/") || (-l "$entry/");

  opendir(DIR, "$entry/");
  my @list = sort readdir(DIR);

  foreach my $name (@list)
  {
    next if $name eq '.' || $name eq '..';

    my_walk("${entry}/${name}", $depth+1);
  }

  closedir(DIR);
}

$entry = $ARGV[0];
$depth = $ARGV[1];

my_walk($entry, $depth);

参考：Shift-JISテキストを正しく扱う - Shift-JISの漢字を含むファイル名/パス名