Select Code to Download

sub halts {
    my $machine = shift;
...
       }
    )
}

BEGIN {
    if(  0.5 < rand()  ) {
...
    }
}
whatever  / 25 ; # / ; die "this dies!";

 > perl -MO=Deparse above.pl
# ...
...
whatever(/ 25 ; # /);
die 'this dies!';
- syntax OK