#!/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\\InstallPath: ",  regLastError(),"\n";
   RegQueryValueEx( $key, "(Default)", [], $type, $data, [] )
     or  die "Can't read SOFTWARE\\Adobe\\Acrobat Reader\\5.0\\InstallPath\\(Default): ", regLastError(),"\n";
   
   RegCloseKey( $key )
   or  die "Can't close HKEY_LOCAL_MACHINE\\SYSTEM\\Disk: ", regLastError(),"\n";