#!usr/bin/perl
use Tkx;
use strict;
use warnings;
my $mw;
$mw = Tkx::widget->new(".");
my $batch_button = $mw->new_button(	-text=>"TEST",
					-command=> \&test
					)->g_pack(-side=>'right');

Tkx::MainLoop();

sub test {
	die();
}