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

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