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

MainLoop;