#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use lib qw(.);
use ActionListener;

my $mw = MainWindow->new();
my $label = $mw->Label(-text => 'test')->pack();
my $actionlistener = ActionListener->new();

$actionlistener->add($label);

MainLoop;