my $COM_PORT = "com1";
open DEV,"+<", "$COM_PORT" or die "failed to open com port\n";
print DEV "\n";
$input = <DEV>;