<? $f = escapeshellarg($_SERVER[SCRIPT_FILENAME]);
list($h, $b) = preg_split("/\n\n/", `perl -x $f`,2);
foreach (preg_split("/\n/", $h) as $_) header($_);
echo $b; exit; ?>

#!/usr/bin/perl

print "Content-Type: text/plain\n\n";

print "perl++\n" for 1..10;