@t=qw/3 3 3 3 3 -6 -6 1 1 1/;$|++;
@h=qw/0 0 9 9 -12 1 1 1 -2 -2/; {local$\=pack'H*', 
"42414e472121210a414e442054484559275245204f464621210a0aH";
print+$:;}$_=$i=$t=$h=$?;while(1){$i=int(rand()*10);
$t+=$t[$i];$i=int(rand()*10);$h+=$h[$i];$t=$t<0?0:$t;
$h=$h<0?0:$h;print+$_==$t?$_==$h?'X':'T':$_==$h?'H':'.' 
for(0..65);print+$t==$h?'OUCH!':'';print "\t\r"; 
select undef, undef, undef, .4;$t>64 and die pack 'H*', 
'0a547572746f6973652077696e730a';$h>64 and die pack 'H*', 
'0a486172652077696e730a';}