perl -we "print -d SCRIPTS"
Name "main::SCRIPTS" used only once: possible typo at -e line 1.
-d on unopened filehandle SCRIPTS at -e line 1.
Use of uninitialized value in print at -e line 1.