open(S, '+<', '/dev/ttyS0');
read(S, $buf, 1024, length($buf));
print S "etc.\n";