Below a simplified sample. Still problems to read the default value
#!/perl/bin -w
###################################################################
#
# Purpose: Declaration of Modules to use in this script
###################################################################
use strict;
use Win32::Process;
use Win32API::Registry 0.21 qw( :ALL );
my ( $key, $type, $data );
RegOpenKeyEx( HKEY_LOCAL_MACHINE, "SOFTWARE\\Adobe\\Acrobat Reader\
+\5.0\\InstallPath", 0, KEY_READ, $key )
or die "Can't open SOFTWARE\\Adobe\\Acrobat Reader\\5.0\\Install
+Path: ", regLastError(),"\n";
RegQueryValueEx( $key, "(Default)", [], $type, $data, [] )
or die "Can't read SOFTWARE\\Adobe\\Acrobat Reader\\5.0\\Install
+Path\\(Default): ", regLastError(),"\n";
RegCloseKey( $key )
or die "Can't close HKEY_LOCAL_MACHINE\\SYSTEM\\Disk: ", regLastEr
+ror(),"\n";