#!/usr/bin/perl
$t="'";$q='"';$d='$';$n=pack('c',10);
$x=18418+1;print "Content-type: text/html$n$n$x";
$c='#!/usr/bin/perl\n${d}t=$q$t$q;${d}q=$t$q$t;${d}d=$t$d$t;${d}n=pack(${t}c$t,10);\n${d}x=$x+1;print ${q}Content-type: text/html${d}n${d}n${d}x$q;\n${d}c=$t$c$t;\nopen(F,$q> /home/neil/scripts/counter.pl$q);\nprint F $q$c$q;\nclose F;\n';
open(F,"> /home/neil/scripts/counter.pl");
print F "#!/usr/bin/perl\n${d}t=$q$t$q;${d}q=$t$q$t;${d}d=$t$d$t;${d}n=pack(${t}c$t,10);\n${d}x=$x+1;print ${q}Content-type: text/html${d}n${d}n${d}x$q;\n${d}c=$t$c$t;\nopen(F,$q> /home/neil/scripts/counter.pl$q);\nprint F $q$c$q;\nclose F;\n";
close F;