[MacPerl] Data section of a script

[Robert Sweeney <rsweeney@anet-stl.com>]

Is there a convienant way to write to the data section of a script? I'd
like to store some information in my script without using an additional
external file. I suppose I could open the script's own file, read
through until I see the __END__ into a @buffer, print open the script
file for writing, print out @buffer, and then replace everything past that
with new text. 

However, I'm leary of the script writing over itself.

Robert Sweeney





# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org