Gnome3pm

        use Gnome;
        Gnome->init('myapp');
        my $app = new Gnome::App("myapp", "myapp window title");
        $app->create_menus({type => 'subtree', label => '_File', 
                subtree => [
                ['item', '_Quit', undef, sub {exit}, 'stock', 'Quit'],
        ]});
        my $canvas = new Gnome::Canvas;
        $canvas->set_scroll_region(0, 0, 300, 300);
        $canvas->set_usize(300, 300);
        $canvas->root->new($canvas->root, 'Rect', 
                x1 => 10, y1 => 10, x2 => 150, y2 => 250, 
                fill_color => '#0f0ef2', outline_color => 'black');
        $app->set_contents($canvas);
        $app->show_all;
        Gtk->main;