#!/usr/bin/env perl
use strict;
use warnings;
use Device::SerialPort;

$|=1;

my $serDev = $ARGV[0] || '/dev/ttyUSB0';
my $port = Device::SerialPort->new($serDev);
my $serSpeed = $ARGV[1] || 115200;
my $serDB = $ARGV[2] || 8;
my $serPA = $ARGV[3] || 'none';
my $serSB = $ARGV[4] || 1;

unless ($port) {
    print "Serial port: $serDev not found, use\n\n";
    print "    $0 <device> <speed> <baud> <parity> <stopbits>\n\n";
    print "    $0 /dev/ttyACM0 115200 8 none 1\n\n";
    exit;
}
$port->databits($serDB);
$port->baudrate($serSpeed);
$port->parity($serPA);
$port->stopbits($serSB);
$port->read_char_time(1);       # don't wait for each character
$port->read_const_time(500);    # 0.5 sec per unfulfilled "read"

$port->write("PAGE\n");
$port->lookclear;