I don't want to have to go back through all my scripts and add in -w just so it would work.

It's not as hard as you might think:

perl -p -i.bak -e 's/^(#!.*perl)/$1 -w/' *.pl
[download]