The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
From: foo@bar.xx
Date: Jan 1, 2037 12:34 PM
Subject: Ignore mail header
To: perl@perl.xx

#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 - perl -l option tested");
}
$test++;
print "ok $test - Second test file utilized";

__END__

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