print $fh <<END;
<event>
  <stream-id>$streamid</stream-id>
  <event-name>$streamname</event-name>
    <primary-event>
    <delete-time>$time_t</delete-time>
    </primary-event>
</event>
END