use Tk;my $main = MainWindow->new;$main->Label(-text => 'Hello!', -relief => 'sunken')->pack;MainLoop;