# from perlfaq5
require ’sys/syscall.ph’;
$rc = syscall(&SYS_close, $fd + 0);  # must force numeric
die "can’t sysclose $fd: $!" unless $rc == -1;