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..8"; 21print "ok 1 - Correct line number" if __LINE__ == 4; 22if (-f 'run/switchx.aux') { 23 print "ok 2 - Test file exists"; 24} 25print "ok 3 - Test file utilized"; 26# other tests are in switchx2.aux 27 28__END__ 29 30# This is ignored 31print "not ok 2"; 32