#!/usr/bin/perl
use strict;
use warnings;
use Lirc::Client;
my $lirc = Lirc::Client->new({
prog => 'lclient-test',
rcfile => "./lircrc",
debug => 1,
fake => 0,
});
while( my $k = $lirc->next_code ){
print "key: $k\n";
}