perl -w $your_script.pl
Name "main::ConfFile" used only once: possible typo at foo.pl line 16.
Name "main::AllDevi" used only once: possible typo at foo.pl line 8.
Name "main::STRM_ALLDevices" used only once: possible typo at foo.pl line 11.
print() on unopened filehandle STRM_ALLDevices at foo.pl line 11.
.
print() on unopened filehandle STRM_ALLDevices at foo.pl line 11.
...