require 5.003;
use Win32::SerialPort qw( :STAT 0.19 );
use strict;
my $line;
my $deck = openSerial("com3:", 19200, 'none', 8, 1);
# $deck->handshake("xon");
# $deck->buffers(4096,4096);

print `mode com3:`;
...