#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $mw = MainWindow->new();

my $r = $mw->Frame()->pack(-side => 'left');
my $l = $mw->Frame()->pack(-side => 'right');

my $i =1;

my $b1 = $r->Button(-text => 'Test', -command => sub { $i =0; })->pack(-side => 'left');

if ($i)
{
my $t = $l->Button(-text => 'Hallo')->pack(-side => 'right');
}
else
{
my $t = $l->Button(-text => 'Ade')->pack(-side => 'right');
}

MainLoop();