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