open(Client,"+>/dev/ttyUSB0") || die "open: $!";
use IO::Stty;
IO::Stty::stty(\*Client,"-crtscts");
IO::Stty::stty(\*Client,"19200");
IO::Stty::stty(\*Client,"-echo");
IO::Stty::stty(\*Client,"-icrnl");