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

##</code><code>##

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