#! perl -w

use strict;
use Win32::SerialPort;

my $ob = Win32::SerialPort->new ('COM5') || die;

my $baud = $ob->baudrate;
my $parity = $ob->parity;
my $data = $ob->databits;
my $stop = $ob->stopbits;
my $hshake = $ob->handshake;

print "B = $baud, D = $data, S = $stop, P = $parity, 
            H = $hshake\n";

my @data_opt = $ob->databits; # list context
print "\nData Bit Options: ";
foreach $a (@data_opt) { print " $a"; } 

@data_opt = $ob->stopbits; # list context
print "\nData Bit Options: ";
foreach $a (@data_opt) { print " $a"; } 

@data_opt = $ob->handshake; # list context
print "\nData Bit Options: ";
foreach $a (@data_opt) { print " $a"; } 

@data_opt = $ob->parity; # list context
print "\nData Bit Options: ";
foreach $a (@data_opt) { print " $a"; } 

@data_opt = $ob->baudrate; # list context
print "\nData Bit Options: ";
foreach $a (@data_opt) { print " $a"; } 

undef $ob; 

======================= Response ==================

B = 38400, D = 8, S = 1, P = none, 
            H = none

Data Bit Options:  7 8
Data Bit Options:  2 1
Data Bit Options:  rts none dtr xoff
Data Bit Options:  odd space even none mark
Data Bit Options:  300 115200 57600 19200 1200 4800 9600 38400 2400 600