Select Code to Download

#!/usr/bin/perl

...
$mw->geometry("+100+50"); # +X co-ord +Y co-ord

MainLoop;

use strict;
use warnings;
...
$main->geometry("+100+50"); # +X co-ord +Y co-ord

MainLoop;