Select Code to Download

#!/usr/bin/perl

use warnings;
...
$serial_port->write_settings || undef $serial_port;

$serial_port->save('pump.cfg') if $serial_port;

#!/usr/bin/perl

use strict;
...

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

#!/usr/bin/perl

use strict;
...

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

my $serial_port = tie (*FH, 'Win32::SerialPort', 'pump.cfg') || die "C
+an't tie: $^E\n";

...
sleep(1); # Same result w/ and w/o the sleep here
my @response = <FH>;
print join "\n", @response;

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