Help for this page

Select Code to Download

Select or download this

my @x;
if ( opendir(my $DIR, $somedir) ) {
    @x = readdir($DIR) or die "$!";
    closedir($DIR);
}