open(PORTA, "+</dev/ttyS0");
  ...
  print PORTA $stringout;
  ...
  $answer = <PORTA>;