$ cat pm_1219033_test_shebang.pl
#!/usr/bin/perl -lan

use strict;
use warnings;

print $F[2];