Instead of DoOneEvent() inside the Strtscan sub, try using $mw->update.

On a side note; perltidy. Get it. Use it. You'll thank me. Really.