contrib/perl5/h2pl/tcbreak2

   1 #!/usr/bin/perl
   2
   3 require 'cbreak2.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;