perl -i.bak -pe '$. == 2 && print("BEGIN { \$ENV{\"TZ\"}=\"EST5EDT\"; }\n");' `find . -name "*.pl"`