Help for this page
opendir DIR, $dir or die "cannot open dir $dir: $!"; my @file= readdir + DIR; closedir DIR;