Benutzer:Zase Wieder/Gtk3

#!/usr/bin/env perl

use warnings;
use Encode;
use Glib;
use Gtk3 '-init';

my $window = Gtk3::Window->new();
my $label1 = Gtk3::Label->new(Encode::decode('UTF-8', 'Frieden für die Welt!'));
my $box = Gtk3::HBox->new();

sub ende
{
     Gtk3->main_quit();
     exit (0);
}

$window->signal_connect(destroy=>\&ende);

$box->add($label1);
$window->add($box);

$window->show_all();

Gtk3->main();