my $port = Device::SerialPort->new("/dev/cu.usbserial");
my $port = Device::SerialPort->new("/dev/tty.usbserial");
my $port = Device::SerialPort->new("/dev/ttys0");
my $port = Device::SerialPort->new("/dev/ttys1");