#!/bin/sh
perl "$@"

##</code><code>##

#!/bin/sh
#!perl -w
eval 'exec wrapper -x -S $0 ${1+"$@"}'
    if 0;

4;
print("Hello, World\n");

##</code><code>##

$ script
Useless use of a constant (4) in void context at script line 5.
Hello, World