#!/usr/bin/perl -w
use strict;
use warnings;
use window;

my $wm= window->new();
$wm->set_xy(128,133);
$wm->set_tittle('program');
$wm->set_window();