perl -Mdiagnostics=-t,-w some_bad_script