use strict; use warnings; use Win32API::Registry qw(KEY_READ); use Config; print "\n\nPerl $Config{archname}\n"; use Win32::TieRegistry(Delimiter=>"/"); my $uninstall=$Registry->Open( "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall", { Access=>KEY_READ() #Access=> 0x20019|0x0100 } ); print "Number of subkeys found: ".scalar(keys %$uninstall)."\n";