#... my $pos=tell(FH); #... seek(FH,$pos,0); return