Select Code to Download

$port->mock ('write',
             sub {my $Mock=shift;my $arg=shift;$arg=~s/\r/\n/g;print "
+wrote $arg to the serial port\n";});

wrote ATE0
 to the serial port
...
wrote ATI
 to the serial port