[perl5.git] / h2pl / tcbreak

#!/usr/bin/perl

require 'cbreak.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;
Commit	Line	Data
e929a76b LW	1	#!/usr/bin/perl
	2
	3	require 'cbreak.pl';
	4
	5	&cbreak;
	6
	7	$\| = 1;
	8
	9	print "gimme a char: ";
	10
	11	$c = getc;
	12
	13	print "$c\n";
	14
	15	printf "you gave me `%s', which is 0x%02x\n", $c, ord($c);
	16
	17	&cooked;