Next You can't get there from here 30

Ouch

     my $ouchcode = "sub {       
                       use Acme::HaltingProblem;
                       my $arg = shift;
                       if (halts($arg, $arg)) { 1 while 1 }
                       else                   { return }
                    }";

continued...
Next Copyright © 2005 M. J. Dominus