use strict;
use Win32::SerialPort;

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


$ob->baudrate(9600);
$ob->parity("none");
$ob->parity_enable(1); 	# for any parity except "none"
$ob->databits(8);
$ob->stopbits(1);
$ob->handshake('none');
$ob->buffers(4096, 4096);

$ob->write_settings || die "cant write settings";
$ob->save("conf.cfg");

print "wrote configuration file conf.cfg\n";

##</code><code>##

use strict;
use Win32::SerialPort 0.11;

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

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

undef $ob; 

##</code><code>##

void setup()
{
  pinMode(13,OUTPUT);
  Serial.begin(9600);
}


void loop() {
  if(Serial.available())
  {
    pinMode(13,HIGH);
  }
}