I am using this in a windowless compile to monitor my pppoe ip and upload a modified html template to my providers web site. Works well, no leaks. This is the core of the script:

use Win32::TieRegistry qw( :REG_ :KEY_ );
$regkey = "Some_Registry_Key_Under_HKLM";
waitForChange();

sub waitForChange {
    $machKey= $Registry->Open( "LMachine", {Access=>KEY_READ(),Delimit
+er=>"/"} ) or die( "Can't open HKEY_LOCAL_MACHINE key: $^E\n" );
    $key = $machKey->Open($regkey) or die( "Can't open key: $^E\n" );
    $TiedHashRef = $key->TiedRef;
    
    $TiedHashRef->RegNotifyChangeKeyValue( 1, REG_NOTIFY_CHANGE_LAST_S
+ET, 0, 0 ); # block until key changes.

    # Key has changed... do something

    waitForChange(); # restart the change notifier

}

exit();
[download]