Select Code to Download

use Win32::OLE qw( EVENTS );

...
        Win32::OLE->SpinMessageLoop();
        Win32::Sleep( 100 );
}

use Win32::OLE qw( EVENTS );
use Tk;
...
            Win32::Sleep( 100 );
    }
}