#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;

my $mw = tkinit();

my $lab = $mw->Label(-text => "Text 1")->pack;
$mw->Button(-text => "Text ändern",
            -command => sub { $lab->configure(-text => "Text 2") })->pack;

MainLoop;