#!/usr/bin/perl

`stty speed 9600 > /dev/ttyS0`;

open(FISH, "+</dev/ttyS0");
select(FISH);$|=1;select(STDOUT);
while(1){
print FISH "R";
$rb = (<FISH>);
print "Fish Say: $rb\n";
select(undef, undef, undef, .1);
}