tcbreak2 (revision 898184e3e61f9129feb5978fad5a8c6865f00b92) - OpenGrok cross reference for /openbsd-src/gnu/usr.bin/perl/h2pl/tcbreak2

#!/usr/bin/perl

require 'cbreak2.pl';

&cbreak;

$| = 1;

print "gimme a char: ";

$c = getc;

print "$c\n";

printf "you gave me '%s', which is 0x%02x\n", $c, ord($c);

&cooked;