1 files changed, 17 insertions, 0 deletions
diff --git a/contrib/perl5/h2pl/tcbreak b/contrib/perl5/h2pl/tcbreak
new file mode 100644
index 0000000..2677cc9
--- /dev/null
+++ b/contrib/perl5/h2pl/tcbreak
@@ -0,0 +1,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;