Thanks a lot. The other way aound is:

GStreamer->init ();
Glib::Timeout->add (250, sub {
    $mw->update;
    return TRUE;
    }, undef, 0);

MainLoop;
[download]

In my case, that 250 ms is enough.