4 use Device::SerialPort;
5 use Data::Dump qw(dump);
9 my $s = new Device::SerialPort( '/dev/ttyUSB0' ) || die $!;
14 $s->handshake('none');
15 $s->read_char_time(2);
16 $s->read_const_time(3);
21 my ($len, $string) = $s->read(255);
24 my $hex = unpack('H*',$string);
26 print time(), " $len $hex\n";