find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'
Imported logging/apache from SVN's contrib. Changes: * perltidy run * Minor tidy-ups by Ask Signed-off-by: Ask Bjørn Hansen <ask@develooper.com>