Select Code to Download

$ob = Win32::SerialPort->new($PORT) ;
$ob->baudrate(19200);
$ob->databits(8);
...
$ob->parity("none");
$ob->write_settings;
$ob->save($CONF);

$send="0xa10xa2";          # "0xa10xa2"
$send="\x{a1}\x{a2}";      # "กข"
$send=hex("a1a2");         # 41378              
$send=hex("a1").hex("a2"); # 161162

$ob->write($send);

# read from array
foreach $array(@array){                
...
        $ob->write($array);                                    # send 
+from array
    }
}