Help for this page

Select Code to Download

Select or download this

my $dir = "/temp/";
for my $file (glob "$dir/*") {
...
    close $F;
}
# closedir(DIR); -- not needed with glob