I am writing a Perl program to process some text. The program writes
some text to a temporary file. It is necessary to return to a specific
point in the temporary file.
seek(TMPFILE,20,0);
$currentpos = tell(TMPFILE);
print "$currentpos\n";
When the program is run the tell() command appears to be executed twice.