RosettaCodeData/Task/Window-creation/Perl/window-creation-1.pl

  use Tk;

  MainWindow->new();
  MainLoop;