Select Code to Download

                       printf STDERR "we have cycled: doing line $. le
+tter 0
                       again\n";

#! perl
use strict;
...
}

warn "cycled in $niter iterations\n";