find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'
Signed-off-by: Robert <rspier@pobox.com>
non-premium customers or something like that such as (3) annoying your customers, if you are in a position to actually want to do that Signed-off-by: Robert <rspier@pobox.com>