#!/usr/bin/perl
use Tk;
my $mw = tkinit;
$mw->Label(-text => "Hello, world!")->pack;
$mw->Frame(-bg => "black", -height => 1)->pack(-fill => "x");
$mw->Label(-text => "Foo bar")->pack;
MainLoop;