Help for this page
#!/usr/bin/perl use strict; ... while( $file= $f->next() ) { print "$file\n"; }
package List; # Terrible name use strict; ... } 1;