$h = syscall 5, ($n="filename"), 65, 0777; $h<0 and die $!; syscall 6, $h;