#!perl use strict; use warnings; use Tk; my $mw = tkinit(); my $label = $mw->Label(-text => 'Hallo Du!')->pack(); $mw->MainLoop();