opendir

opendir DIRHANDLE, EXPR

　EXPRという名前のディレクトリをオープンしてDIRHANDLEに結びつけます。readdir関数にDIRHANDLEを渡すことによってディレクトリのエントリを取得することができます。
　成功すると真を返します。

opendir my $dh, '/home/user1' or die $!;
while (my $dir = readdir $dh) {
    print "$dir\n";
}
closedir $dh;