#! /usr/bin/perl -w
use Tk;
$mw=MainWindow->new();
foreach(1..10)
	{
	$mw->Entry()->pack;
	}

$mw->after(100,sub{
      print $mw->packSlaves,"\n";
    });

MainLoop;