Select Code to Download

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

serial_old.pl - The first version of the program
================================================
...
untie *PORTA;

close FOUT;