#/usr/bin/perl

use Device::SerialPort;
my $port = Device::SerialPort->new("/dev/ttyUSB0");

$port->baudrate(9600); # Configure this to match your device
$port->databits(8);
$port->parity("none");
$port->stopbits(1);
$port->handshake("none") || die "failed setting handshake";
$port->write_settings    || die "no settings";

$port->write("26Jul1998 16:00");
sleep(1);
$port->write("   P000 0070 CALL ");
$sleep(1);
$port->write(" , unit 0\r\n");