opendir my $Tdir, "/path/to/anywhere"
    or die "Can't opendir '/path/to/anywhere': $!";
my $dir;
while($dir = readdir($Tdir)){
    print "$dir\n";
}
closedir $Tdir;