use strict;
use warnings;
use Gtk2 '-init';
 
my $window = Gtk2::Window->new('toplevel');
$window->set_title("Hello World!");
 
my $button = Gtk2::Button->new("Press me");
$button->signal_connect(clicked => sub { print "Hello again - the button was pressed\n"; });
$window->signal_connect(destroy => sub { print "Bye"; Gtk2->main_quit();});
 
$window->add($button);
$window->show_all;
 
Gtk2->main;
 
exit 0;