use Win32::SerialPort;


#シリアルポートの設定
my $conf_file = 'serialport.conf';
my $port_name = 'COM4';
my $com1 = new Win32::SerialPort($port_name) or die;

#この部分は通信機器と合わせる  
$com1->baudrate(9600);
$com1->parity('none');
$com1->databits(8);
$com1->stopbits(1);

#フロー制御方法の選択；rts(ハードウェア制御)、xoff(ソフトウェア制御)、dtr(rtsと同じことができるがピンが違う)がある。特に理由がない限りrts。
#$com1->handshake('rts');
$com1->handshake('none');

#読込み＆書込みバッファ
$com1->buffers(
  1024 * 20, # 読み込みバッファ
  1024 * 4   # 書き込みバッファ
);

#読込み時間間隔の設定
$com1->read_interval(800);
$com1->read_char_time(400);

$com1->error_msg(1);
$com1->user_msg(1);

$com1->write_settings();
$com1->save($conf_file);