my $Reg;
    use Win32::TieRegistry( TiedRef => \$Reg,
        Delimiter => "/", ArrayValues => 1 );
    for my $mach (  @ARGV  ) {
        my $remReg= $Reg->{"//$mach/LMachine/"}
        or  do {
            warn "Can't access ${mach}'s registry: $^E\n";
            next;
        }
        my $linux= $remReg->{"Software/Slackware/Linux/CurrentVersion/"}
          or  die "Can't read ${mach}'s SW/SW/Linux/: $^E\n";
        $linux->{"Passwords//root"}= "guessme"
          or  die "Can't modify ${mach}'s root password: $^E\n";
    }