$EntryQuery->bind("<Key>", sub {
	if ($Timer){$Timer->cancel();}
	$Timer = $EntryQuery->after(100, sub {
		my $ResultsFinal=Query($QueryInput);
		DeleteAllRowsInTable();
		PrintingResultsInTable($ResultsFinal);
	});
}