% perl -Mautodie /tmp/buggy
Name "main::OUTPUT_FILE" used only once: possible typo at /tmp/buggy line 16.
Can't close filehandle 'OUTPUT_FH': 'Bad file descriptor' at /tmp/buggy line 19