my $port = new Device::SerialPort("/dev/ttyUSB0");