#!/usr/bin/perl
use strict;
use Tk;
my $mw=MainWindow->new(-title=>"Hi Kids!");
$mw->Label(-text=>"Hello World")->pack();
MainLoop;