use strict;
use Tk;
my $mw = MainWindow->new();
$mw->Button( -text => 'Hola compaņero!' )->pack;
MainLoop;