One easy way to "append to the top of a file" (or prepend) is to first create a temp file that contains your "append" text. And then append to that the contents of the file that oritinal file. You would then replace the original file with the temp file.
Of course perlfaq5 lists the previously mentioned method, of using the Tie::File module. :)
Dave
"If I had my life to do over again, I'd be a plumber." -- Albert Einstein