use strict;
use Win32::SerialPort 0.11;

my $ob = Win32::SerialPort->start ("conf.cfg") || die;

$ob->write("abc");
$ob->write("xyz");

undef $ob;