Help for this page

Select Code to Download


  1. or download this
    #/usr/bin/perl
use Device::SerialPort;
...
    $port->lookclear; # needed to prevent blocking
    sleep (1);
}
  2. or download this
    $port->write("26Jul1998 16:00   P000 0080 CALL  , unit 0\r\n");
  3. or download this
    #/usr/bin/perl

...
$port->write("   P000 0070 CALL ");
$sleep(1);
$port->write(" , unit 0\r\n");