Select Code to Download

  my $ob = Device::SerialPort->new($PORT) || die;

  my $ob = tie (*FH, 'Device::SerialPort', $PORT) || die;