END
{
	$widget->quit;
}


# create two bars - 'execution report' and 'some other report'
my $widget = new ProgressWidget("Execution Report", "Some Other Report");

my $pid;
if ($pid = fork)
{
	# run the Tk Mainloop off by itself
	$widget->run();
	waitpid($pid, 0);
}
else
{
	# actually do the work. increment each progress bar
	# the bars scale from 0% to 100%, so scale your
	# range down between these two values.
	# (progress/totalProgress*100)
	for (my $i=0; $i<100; $i++)
	{
		$widget->incrementBar(0, $i);
	}
	sleep 5;
	for (my $i=0; $i<100; $i++)
	{
		$widget->incrementBar(1, $i);
	}
	# put a green 'info' message into the dialog.
	$widget->insertText('info', 'green', "Complete");
	
}