$port = new Device::SerialPort ( "/dev/ttyS0") 
      or die "can't open port: $!";