require 'HTML.pl';
	HTML::StartHTML();
	print "<h1>DEBUG</h1>";

	while (sysread $FH, $buf, 16) {
		  my @data = unpack "C*", $buf;
		  my @s = map { sprintf "%02x", $_} @data;
		  print "@s<br>";
	}
	exit();