D:\>perl -MGtk3 -wle "my ($success, $rest) = Glib::Object::Introspection->invoke ('Gtk', undef, 'init_check', [$0, @ARGV]); print 'ok';"
ok