Date: Thu, 27 Sep 2001 15:04:11 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: Forcing reevaluation of code in mod_perl scripts?
Message-Id: <87pu8c4qzc.fsf@homer.cghm>

damian@qimr.edu.au (Damian James) writes:
> 
> @:=grep!(m!$/|#!..$|),split//,<DATA>;@;=0..$#:;while($:=@;){$;=rand
> $:--,@;[$;,$:]=@;[$:,$;]while$:;push@|,shift@;if$;[0]==@|;select$,,
> $,,$,,1/80;print qq x\bxx((@;+@|)*$|++),@:[@|,@;],!@;&&$/}  __END__
> Just another Perl Hacker,### http://home.pacific.net.au/~djames.hub

That's really cool.