#!/usr/bin/perl

use Gtk2 -init;

$window = Gtk2::Window->new;
$window->set_size_request(200, 100);
$window->set_resizable(0);
$window->add(Gtk2::Label->new("Square?"));
$window->show_all;
Gtk2->main;