ファイルの一覧

my $path = shift;
exit unless(-d "$path");

opendir(DIR, "$path");
while (defined(my $child = readdir(DIR))) {
  next unless(-f $child);
  print $child . "\n";
}
closedir(DIR);