Help for this page

Select Code to Download

Select or download this

opendir my $Tdir, "/path/to/anywhere"
    or die "Can't opendir '/path/to/anywhere': $!";
...
    print "$dir\n";
}
closedir $Tdir;