#!/usr/local/bin/perl -w

use Tk;
my $mw =MainWindow ->new;
$mw -> Button()->grid(-row => 0, -column => 0, -padx => 10);
$mw -> Button()->grid(-row => 0, -column => 1, -padx => 10);
MainLoop;