use strict;
use Win32::SerialPort;
my $ob = Win32::SerialPort->new ('COM1') || 
	 die "Can't Open Port";

my @baud_array = $ob->baudrate;
print "Baud Array contains @baud_array \n";
undef $ob;