# The perl script/program for csh script "fetch"

use strict;
use warnings;
#use File::Glob ':globally';
#use File::Glob qw(:globally :nocase);
#use File::Glob ':bsd_glob';
#use FastGlob qw(glob);

#print "Hallo\n";

# doesn't work:  #my @arr = glob('"*.pptx  *.doc"' );
# doesn't work:  my @arr = <*.pptx>;
(my @arr) = glob '*.doc' ;

foreach my $e (@arr) { print "$e  \n" };





exit 42;

#  testing perl
# #@ARGV = (<*.xls>);  for $e (@array) { print "$e "; };
 #set arrx =  (`perl -e ' my @arr = glob(<*.*>); for $e (@arr) { print "$e \n";
 #};'`)
 #foreach s ($arrx)
         #print "'$s'"
	 #end

	 #perl -e '@arr = glob("*.*"); print @arr;'

