Select Code to Download

#!/usr/bin/perl -w
use strict;
...
})->pack;

MainLoop;

    my @wg = ($w->geometry =~ /\+(\d+)\+(\d+)/);
    my @bg = ($button->geometry =~ /\+(\d+)\+(\d+)/);
    $wg[$_] += $bg[$_] for (0..@wg-1);
    $mw->geometry("+$wg[0]+$wg[1]");