1178481Sjb#!/usr/bin/perl 2178481Sjb 3178481Sjbrequire 'cbreak2.pl'; 4178481Sjb 5178481Sjb&cbreak; 6178481Sjb 7178481Sjb$| = 1; 8178481Sjb 9178481Sjbprint "gimme a char: "; 10178481Sjb 11178481Sjb$c = getc; 12178481Sjb 13178481Sjbprint "$c\n"; 14178481Sjb 15178481Sjbprintf "you gave me '%s', which is 0x%02x\n", $c, ord($c); 16178481Sjb 17178481Sjb&cooked; 18178481Sjb