1Some stuff that's not Perl 2 3This CPP directive should not be read. 4#define BARMAR 1 5 6#perl 7 8Still not perl. 9 10#! 11 12still not perl 13 14#!/something/else 15 16still not perl 17 18#!/some/path/that/leads/to/perl -l 19 20print "1..7"; 21if (-f 'run/switchx.aux') { 22 print "ok 1 - Test file exists"; 23} 24print "ok 2 - Test file utilized"; 25# other tests are in switchx2.aux 26 27__END__ 28 29# This is ignored 30print "not ok 2"; 31