Help for this page

Select Code to Download


  1. or download this
     @files = <*>;
 foreach $file (@files) {
   print $file . "\n";
 }
  2. or download this
    ## glob on all files in home directory
  use File::Glob ':globally';
  my @sources = <~gnat/*>;