use strict;
use warnings;
use Tk;

my $main = MainWindow->new;
$main->Label(-text => 'Hello, world!')->pack;
$main->Button(
    -text => 'Quit',
    -command => [$main => 'destroy']
)->pack;

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

MainLoop;