opendir my $dir, "."; ... readdir $dir; ... close $dir;