use Tk;
  my $mw = MainWindow->new();
  $button1 = $mw->Button(-text => 'one')->place(-x=>'10', -y=>'10');
  $button2 = $mw->Button(-text => 'two')->place(-x=>'15', -y=>'15');
  $button2 = $mw->Button(-text => 'three')->place(-x=>'20', -y=>'20');
  $mw->MainLoop;