seek DATA,0,0;
print "Content-type:text/plain\n\n",
  "here is my sourcecode, steal secrets\n",
  <DATA>;