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