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");

##</code><code>##

$port->write_settings || undef $port;