Help for this page
Select Code to Download
Select
or
download this
foreach my $file (readdir DIR) { ... close $in_fh; # call subroutine here }