Select Code to Download

...
my $height = $mw->screenheight;
...
my $geom = $mw->geometry;

$mw->title("New Title ($geom)");

my $height = $mw->height;
my $width  = $mw->width;

$mw->title("New Title ($width x $height)");