use Gtk; init Gtk; my $win = new Gtk::Window -toplevel; my $label = new Gtk::Label "Hello, world"; $win->add($label); $win->show_all; main Gtk;