No need to play with OLE when you can use Win32::Registry

use strict;
use warnings;

use Win32::Registry;

# The following example reads and displays the value in the DWORD regi
+stry value
# HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl\Aut
+oReboot. 

my $CrashControl;
$::HKEY_LOCAL_MACHINE->Open(
    q~SYSTEM\CurrentControlSet\Control\CrashControl~,
    $CrashControl
)
    or die "Can't open CrashControl: $^E";

my ($type, $value);

$CrashControl->QueryValueEx("AutoReboot", $type, $value) or die "No Au
+toReboot: $^E";

print "Here's AutoReboot: $value\n";
[download]