#!/usr/bin/perl -w

use POSIX;

$fd = POSIX::open('/dev/ttyS0', O_RDWR | O_NOCTTY) or die "$! in open";
$termios = POSIX::Termios->new;
$termios->getattr($fd) or die "$! in getattr";
print $termios->getispeed, " ", $termios->getospeed, " ", POSIX::B9600, " ", POSIX::B38400, "\n";

for (;;) {
   POSIX::read($fd, $buff, 3) or die "$! in read";
   print $buff
};

POSIX::close($fd);