$PortObj->write("$text");
$PortObj->write("$text,$textlength");
$PortObj->write(q{},$textpos);
$PortObj->write($text2,$textlength2);