in reply to Beginning of file search

seek:
      seek FILE, 0, 0;

In Section Seekers of Perl Wisdom