hey,

there is an eaier way to do it, but DrGonzos way is a safer way, anyway the easy way is to read the whole file into a scalar, add what u want to the end and then write it out again, eg:

open(INFILE,"data.txt") || die;
while(<INFILE>) { $buffer .= $_; }
close(INFILE);

$buffer = "Put here what you want at the start\n" . $buffer;

open(OUTFILE,">data.txt") || die;
print OUTFILE $buffer;
close(OUTFILE);

sorry im on windoze at the moment so i cant test the code but it all looks right, just make sure that you use DrGonzos method when the file starts getting into the megabytes range :)