$PortObj = new Device::SerialPort ($PortName, $quiet, $lockfile)
     || die "Can't open $PortName: $!\n";