...
Win32::OLE->SpinMessageLoop;
...
Win32::OLE->SpinMessageLoop;
while(1){
    Win32::OLE->SpinMessageLoop;
    sleep 1;
    last if $quitting;
}
...
Win32::OLE->SpinMessageLoop;