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