or download this
open ($archive_file_handel, '+<', $archive_file_spec) or die "Can't op
+en $archive_file_spec: $!";
...
seek($archive_file_handel, 0, SEEK_END); # fails, writes to begining
print { $archive_file_handel } "another piece of data to go after head
+er\n"; # Write out junk for now