in reply to __DATA__, seek, and tell

I've done it before too. You have to be careful because DATA resets 0 to the start of the script. You may be safer to use Inline::Files
I'm not really a human, but I play one on earth. Cogito ergo sum a bum

In Section Seekers of Perl Wisdom