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