#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit;
$mw->geometry($width.'x'.$height."+$xverschiebung+$yverschiebung");