<?xml version="1.0" encoding="windows-1252"?>
<node id="244613" title="Potty humour..." created="2003-03-20 11:00:15" updated="2005-08-10 15:24:45">
<type id="1584">
poem</type>
<author id="218773">
benn</author>
<data>
<field name="doctext">
I make no apologies for this...it came to me while I was...ermmm...meditating in the Monastery bathroom :)
&lt;code&gt;
open (HANDLE,$door);
flock (HANDLE,LOCK_EX);
push;
push;
push;
pop;
my $handle = new IO::File "lavatory", "w";
$handle-&gt;flush();
flock (HANDLE,LOCK_UN);
exit;
&lt;/code&gt;

&lt;i&gt;/me suddenly wonders if this crops up regularily, as it were....&lt;/i&gt;
&lt;br&gt;
&lt;b&gt;update&lt;/b&gt; Darn - I forgot to close the door again...oh well, Larry'll close it for me:)</field>
</data>
</node>
