perl/opendir関数〜ディレクトリを表示してみる〜

#! usr/bin/perl

use strict;
use warnings;

#カレントディレクトリを表示してみる。カレントディレクトリは「.」親ディレクトリは「..」
opendir(DIR,'.') or die "$!";
foreach (readdir(DIR)){
    print "$_\n";
}
closedir (DIR);