Hi Anonymous monk

In my view you want to read all the file and afterwards append to a file then you can do is create a two file handleing pointers.

First thing is to read the whole content of a file to a memory or simply display it out.

Afterwards do the appending work.

Here is the example for the sorting file contents that might help

#!/usr/bin/perl -w

if (@ARGV < 1 ) {
print "$0 <file>\n";
exit 1
}

$tmp_file=$ARGV[0];

open(TMP_INPUT_FILE, "<$tmp_file"); # open for input

my(@lines) = <TMP_INPUT_FILE>; # read file into list

close(TMP_INPUT_FILE);

open(TMP_OUTPUT_FILE, ">$tmp_file");

@lines = sort(@lines); # sort the list

my($line);

foreach $line (@lines) # loop thru list
 {
 print TMP_OUTPUT_FILE "$line"; # print in sort order
 }

close(TMP_OUTPUT_FILE);
[download]

In the above example filename is supplied at the command line.