binary_to_ascii.pl

#!/usr/bin/perl

use strict;
use warnings;

use Term::ReadKey;
use Time::HiRes qw/usleep/;

ReadMode 4;

my $buf = '0b';
while(1) {
	my $key;
	usleep 500 until defined ($key = ReadKey(-1));
	$buf .= 0 if $key eq 'j';
	$buf .= 1 if $key eq 'k';
	if (length $buf == 10) {
		print chr oct $buf, "\n";
		$buf = "0b";
	}
	last if $key eq 'l';
}

ReadMode 0;