open( $sf, "+< $self->{mod_state_filename}" ); flock( $sf, LOCK_EX ); $self->{mod_state} = fd_retrieve($sf); delete ($self->{mod_state}{"somekey"}); seek( $sf, 0, 0 ); store_fd( $self->{mod_state}, $sf ); flock( $sf, LOCK_UN ) close($sf);