my($mw) = MainWindow->new();

$currentframe = $mw->ChecklistFrame(
				    -class => 'Checklist',
				    -type  => 'item',
				    -text  => 'Foo'
				   );

$elementtext = 'Foo!';

$currentframe->pack();

MainLoop;