1From: foo@bar.xx 2Date: Jan 1, 2037 12:34 PM 3Subject: Ignore mail header 4To: perl@perl.xx 5 6#perl 7Not perl 8 9#! 10Still not perl 11 12#!/something/else 13Still not perl 14 15#!/usr/bin/bash 16# Ignore shell commands 17if [[ -z $FOO ]]; then echo 'not ok 1'; fi 18 19#!/some/path/that/leads/to/perl -l 20 21# These lines get executed 22my $test = $ARGV[0]; 23if (-f 'switchx.t') { 24 print("ok $test"); 25} 26$test++; 27print "ok $test"; 28 29__END__ 30 31# This is ignored 32print "not ok $test"; 33