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