print STDERR ">>> $cmd >>> $message\n";
$port->write("$cmd\r");
# $port->write_done(1); # flush
- $port->write_drain;
+# $port->write_drain;
+ $port->read( length($cmd) + 1 ); # slurp echo
+
my $ret = $port->read(1);
again:
while ( my $c = $port->input ) {
return $ret;
}
-c 'ATE0' => 'echo off';
-#c 'ATZ' => 'reset';
-#
+#c 'ATE0' => 'echo off';
+c 'ATZ' => 'reset';
+
c 'ATI' => 'info';
c 'AT+CGMI' => 'manufacturer';