$result = syswrite(COM, $data);
if (defined $result) {
	print "$result bytes written\n";
} else {
	die "Couldn't write to port.\n";
}