#! /usr/bin/perl -w
use warnings;
use strict;
use Tk;

my $mw=MainWindow->new();

foreach(1..10)
	{
	 my $e = $mw->Entry()->pack;
	 $e->bind('<FocusIn>', sub { 
	    print "@_\n"; 
	    print "my entry is $_[0]\n";
            $_[0]->configure(-bg => 'hotpink');	    
	    } ); 	
        }
MainLoop;