Das Beispiel in perldoc -f seek sollte (mit geringen Anpassungen) das tun, was du willst.