open DEBUG, ">", "debug.txt";
print DEBUG  "Begin: Debug " . strftime( '%m-%d-%Y %H:%M:%S', localtime() ) . "\n";

##</code><code>##

	my $ok;
	use Archive::Zip;
	my $z = Archive::Zip->new();
	eval { $ok = $z->read($HelpFile); };
	if ( $ok == 0 )
	{
		if ($debug)
		{	
			print DEBUG "Start unzip help  " . strftime( '%m-%d-%Y %H:%M:%S', localtime() ) . "\n";
		}
		# unzip the new copy of the scripts into the update folder
		mkdir './help';
		$ok = $z->extractTree( 'help', 'help' );
		if($debug)
		{
			print DEBUG "End   unzip help  " . strftime( '%m-%d-%Y %H:%M:%S', localtime() ) . "\n";
		}		
	}
	undef $z;
	unlink($HelpFile);
	if ($debug)
	{
		print DEBUG "Begin: Populating product names." . strftime( '%m-%d-%Y %H:%M:%S', localtime() ) ."\n";
	}

	populateProductNames();

	$products = [@products];
	if ($debug)
	{
		print DEBUG "End: Populating product names." . strftime( '%m-%d-%Y %H:%M:%S', localtime() ) ."\n";
	}

##</code><code>##

if ($debug)
{
	use POSIX 'strftime';
	print DEBUG "Starting window loop " . strftime( '%m-%d-%Y %H:%M:%S', localtime() ) . "\n";
}
$app->MainLoop;