Help for this page

Select Code to Download

Select or download this

@files = <*>;
 foreach $file (@files) {
   print $file . "\n";
 }