#!/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;

package ActionListener;

use Tk;

sub new{
  my $self = {};
  bless $self,shift;
  return $self;
}

sub add{
  my ($self,$widget) = @_;
  $widget->Tk::bind($widget,'<Button-1>',[\&left]);
}

sub left{
  print "linke Maustaste gedrückt...\n";
}

1;