open (LOGFILE,">>$logfn");
print LOGFILE, $eventinfo;
close (LOGFILE);

##</code><code>##

<event time='1234' type='this'>
<detail>blah</detail><detail>blahblah</detail>
</event>
<event time='1236' type='this'>
<detail>blah</detail><detail>blahblah</detail>
</event>
<event time='2234' type='that'>
<detail>weeble</detail><detail>blahblah</detail>
</event>