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

##</code><code>##

## glob on all files in home directory
  use File::Glob ':globally';
  my @sources = <~gnat/*>;