Help for this page

Select Code to Download

Select or download this

@l = readdir(PRINT) ;
%h{@l} = (1) x @l ;
...
for( keys %h ) {
  # do work
}