Hallo Welt
•
#!/usr/bin/perl
•
use strict;
•
use warnings;
•
•
use Tk;
•
•
my $mw = MainWindow->new();
•
•
$mw->Label(-text => 'Hallo Welt')
•
->pack();
•
•
MainLoop();
