Re: HelloWorld

#!/usr/bin/perl -w
use strict;
use Gtk;

init Gtk;

my $w = new Gtk::Window ("toplevel");
my $b = new Gtk::Button ("Hello World");
$w->border_width (10);
$w->signal_connect ("delete_event",{Gtk->exit(0);});
$b->signal_connect("clicked",{Gtk->exit(0);});

$b->show ();
$w->add ($b);
$w->show();

exit(0)