sysopen (ioport, $portname, &POSIX::O_RDWR);