The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[- $escmode = 0 -][+ "Some binary data" +][- for ($i = 0; $i < 256; $i++) { print OUT chr($i) } -][$foreach $i (0..255)$][+ chr($i) +][$endforeach$]