The short answer is, use Tie::File.
In reply to Re: How to use fseek in perl ?? by Somni in thread How to use fseek in perl ?? by pysome