I've recently used Tie::File to good effect, however I'm not sure if that module will also lock the file as you require. But it's a more Perl-ish way of accessing a file than using tell and seek.