Help for this page

Select Code to Download

Select or download this

while ( my ($index, $file) = each @filenames) {... }