#! c:\perl\Bin   
use Tk; 
use Tk::LabFrame;
 $mw = MainWindow->new;

for($i=0;$i<=5;$i++)
  {
$j=$mw->Entry(-validate=>all,-validatecommand=>\&f)->pack();

  }

sub f
{
   $i1=$j->get();
   print $i1;
}
MainLoop;