use strict; use Tk; my $mw = MainWindow->new( -height => 100, -width => 350); $mw->title ("Hello, world!"); MainLoop;