#!/usr/bin/perl

use strict;
use warnings;

use Win32::SerialPort;
use Data::Dumper;

my $serial_port = start Win32::SerialPort('pump.cfg');
$serial_port->write_settings;

$serial_port->write("aU\n"); # Asks pump 'a' for its version information

my $response = $serial_port->input;
print Dumper($response); # Expected response: CV02.00.A