mirror of
https://github.com/opnsense/src.git
synced 2026-04-01 07:25:10 -04:00
17 lines
180 B
Perl
17 lines
180 B
Perl
#!/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;
|