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