Subject: Ignore mail header
From: [email-masked]
To: [email-masked]
Date: Jan 1, 2037 12:34 PM

#perl
Not perl

#!
Still not perl

#!/something/else
Still not perl

#!/usr/bin/bash
# Ignore shell commands
if [[ -z $FOO ]]; then echo 'not ok 1'; fi

#!/some/path/that/leads/to/perl -l

# These lines get executed
my $test = $ARGV[0];
if (-f 'switchx.t') {
    print("ok $test");
}
$test++;
print "ok $test";

__END__

# This is ignored
print "not ok $test";