perl -Mdiagnostics=t-,-w badly_behaved_script