summaryrefslogtreecommitdiff
path: root/h2pl/tcbreak
blob: 2677cc982bcf06cfcb3eae4d4666cacae7864243 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/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;