#!/usr/bin/perl

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

Gtk2->main;