Select Code to Download

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.
...
.
print() on unopened filehandle STRM_ALLDevices at foo.pl line 11.
...

use warnings;
use strict;
...
}
closedir $dir or warn $!;
close $a or warn $!;