<>
use Device::SerialPort;
use Data::Dumper qw(Dumper);
my $port = Device::SerialPort->new("/dev/ttyUSB3");
my $port1 = Device::SerialPort->new("/dev/ttyUSB2");
$port->baudrate(115200); # Configure this to match your device
$port->databits(8);
$port->parity("none");
$port->stopbits(1);
$port->lookclear;
$port->write("date\n");
$port1->write("date\n"); === not working need help
</code>