t/recipes/checks/md5sums/legacy-scripts/build-spec/orig/perl-bizarre-2


1
2
3
4
5
6
7

#!/bin/sh
eval 'exec /usr/bin/perl -wS $0 ${1+"$@"}'
    if $running_under_some_shell;

# I'm someone following perlrun except without using the Perl #! line.
# Now something to choke bash.
while (<>) { if (/%#/) { print } }