#!/usr/bin/perl
use warnings;
use strict;
use Gtk2 '-init';

my $window = Gtk2::Window->new;
my $button = Gtk2::Button->new('Some Button');
my $vbox   = Gtk2::VBox->new();
$window->set( border_width => 15 );
$window->add($button);

$window->signal_connect('destroy', sub { Gtk2->main_quit });

$window->show_all();

Gtk2->main;