#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();
$mw->Button(-command => [\&change_text,"test"], -text => 'Drueck mich')->pack();

MainLoop;

sub change_text{
    print $_,"\n" for(@_);
}