You'd probably use sysopen with seek and truncate, but that's probably still not what you really want to do. Read the entries in perlfaq5 on file locking and flock if you want to do this correctly.