#!/bin/sh
#!perl # -w -Sx: line count is one off
eval 'exec perl -Sx $0 ${1:+"$@"}'
   if 0;