I found a workaround:

GStreamer->init ();

Glib::Idle->add (sub {
    $mw->update;
    $mw->idletasks;
    return TRUE;
    }, undef, 0);

MainLoop;
[download]