#! c:\perl
use strict;
use warnings;

my $Registry;
use Win32::TieRegistry 0.24 (
  TiedRef => \$Registry,  Delimiter=>"/",  ArrayValues => 1, SplitMultis => 1,  AllowLoad => 1,
  qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ KEY_READ KEY_WRITE KEY_ALL_ACCESS ),
);

# ... $pc = remote machine name ...

my $regKeyName = 'HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/';
	
print STDERR "Checking the registry on $pc.\n";
	
my $remKey= $Registry->Connect( $pc, $regKeyName,
  { Access=>Win32::TieRegistry::KEY_READ() } )
  or Carp::croak("!! Couldn't connect to $pc or can't open reg key ($regKeyName).\n".
    "!! - Is File and Printer Sharing enabled?\n$^E\n");