- open (CACHE_FILE, "+>>$file") || error ("unable to write $file: $!");
- flock (CACHE_FILE, LOCK_EX) || error ("unable to lock $file: $!");
- seek (CACHE_FILE, 0, 0) || error ("unable to rewind $file: $!");
+ open ($cache_fd, '+>>', $file) || error ("unable to write $file: $!");
+ flock ($cache_fd, LOCK_EX) || error ("unable to lock $file: $!");
+ seek ($cache_fd, 0, 0) || error ("unable to rewind $file: $!");