sub output {
	my ($handle, $widget, $tx) = @_;
	
	if (sysread ($handle, $_, 128)) {
		$tx->insert('end', $_); # Append the data read
		$tx->yview('end');
	} else {
		$tx->insert('end', "\nALL DONE\n");
		$tx->yview('end');
		$widget->fileevent($handle, "readable", undef); # cancel binding
		###----->>> Add in cancel routine here if you want to exit gracefully
		return;
	}
	$widget->idletasks;
}