use strict;
use warnings;
use Tk;

my $mw = MainWindow->new (-title => "Place demo");

$mw->Label (-text=> 'Some sample text')->place (-x=>0, -y=>0);

MainLoop ();