And should go in /usr/bin/ instead...<br clear="all"><br>-- <br>@P=split//,&quot;.URRUU\c8R&quot;;@d=split//,&quot;\niranruF oizirbaF&quot;;sub p{<br>@p{&quot;r$p&quot;,&quot;u$p&quot;}=(P,P);pipe&quot;r$p&quot;,&quot;u$p&quot;;++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord<br>

($p{$_})&amp;6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&amp;&amp;<br>close$_}%p;wait until$?;map{/^r/&amp;&amp;&lt;$_&gt;}%p;$_=$d[$q];sleep rand(2)if/\S/;print<br><br>