Help for this page

Select Code to Download


  1. or download this
    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.
    ...
    
  2. or download this
    use warnings;
    use strict;
    ...
    }
    closedir $dir or warn $!;
    close $a or warn $!;