Freilich kannst Du tell(DATA) benutzen, Du musst nur beachten: DATA beginnt nicht bei 0. Ein seek(DATA), 0, 0); würde den Dateizeiger in die shebang-Zeile setzen. Bevor Du DATA ausgibst, mache vorher ein tell(DATA), das liefert Dir die genaue Position nach __END__ und die Position kannst Du ja sicherstellen.