use Tk;
$mainWin=MainWindow->new;
for(10,20,40,80,200){
		$mainWin->fontCreate("font$_",-family =>'lucidabright',-size=>$_);
		$mainWin->messageBox(-message=>"$_ The Quick Brown Fox Jumped Over The Lazy Dog",-type=>'Ok',-font=>"font$_");
}