1850e2753SmillertFrom: foo@bar.xx 2850e2753SmillertDate: Jan 1, 2037 12:34 PM 3850e2753SmillertSubject: Ignore mail header 4850e2753SmillertTo: perl@perl.xx 5850e2753Smillert 6850e2753Smillert#perl 7850e2753SmillertNot perl 8850e2753Smillert 9850e2753Smillert#! 10850e2753SmillertStill not perl 11850e2753Smillert 12850e2753Smillert#!/something/else 13850e2753SmillertStill not perl 14850e2753Smillert 15850e2753Smillert#!/usr/bin/bash 16850e2753Smillert# Ignore shell commands 17850e2753Smillertif [[ -z $FOO ]]; then echo 'not ok 1'; fi 18850e2753Smillert 19850e2753Smillert#!/some/path/that/leads/to/perl -l 20850e2753Smillert 21850e2753Smillert# These lines get executed 22850e2753Smillertmy $test = $ARGV[0]; 23850e2753Smillertif (-f 'switchx.t') { 24*91f110e0Safresh1 print("ok $test - perl -l option tested"); 25850e2753Smillert} 26850e2753Smillert$test++; 27*91f110e0Safresh1print "ok $test - Second test file utilized"; 28850e2753Smillert 29850e2753Smillert__END__ 30850e2753Smillert 31850e2753Smillert# This is ignored 32850e2753Smillertprint "not ok $test"; 33