use Tk;

$window = MainWindow->new();
$window->title( 'Hello, World!' );
$window->geometry( '640x480' );

$label = $window->Label( -text => "Hello, Perl/Tk World!" );
$label->pack( -side => 'top', -anchor => 'w' );

MainLoop();