5 @files = qw(foo bar baz quux Foo_Bar);
8 #For tests within the perl distribution
9 @INC = '../lib' if -d '../lib';
19 {# Test 1: that we can open files
20 for my $path ( @files ){
22 print $path "$path 1\n";
24 print "not " unless scalar map({ -f } @files) == scalar @files;