sysopen(COM,COM1,O_RDWR) || die "Can't open COM1 $^E";