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