Select Code to Download

# bad perl
print $foo; s/dog/cat/gm; m%foo%;
FOO: for ($foo) { /dog/ && do {last FOO}; /cat/ && do {$dog = 'rabbit'
+};}
exit(0) or die "wooot?";

bash-2.03$ perl -MO=Deparse badperl.pl
badperl.pl syntax OK
print $foo;
...
    }
}
die 'wooot?' unless exit 0;