Select Code to Download

sub X() { 0 } print "$message1 \n" if( runtime cond);

sub X() { 0 }

{
    my $debug = 0;
...
        warn "debug set\n";
    }
}

{
    sub debug () { 0 }
...
        warn "debug set\n";
    }
}

qwurx [shmem] ~ > perl -MO=Deparse,-x,-p
{
...
__DATA__
(<Ctrl>D pressed)
- syntax OK