Select Code to Download

use strict;
use Win32::Registry;
...
        or  warn "Can't delete $keyName from ",
                $rootKey->Path(), ": $^E\n";
}

C:\Perl>comp_apps1.pl Remote_WorkStation01

...
Can't use string (",,My_print_server01,Printer_device200") as a HASH r
+ef while "strict refs" in use at C:\Perl\comp_apps1.pl line 40.

C:\Perl>