in reply to Re^4: Having Access to a file two times
in thread Having Access to a file two times

Or even better: 

use Fcntl qw/:seek/;

seek FH, 0, SEEK_SET or die "Cannot seek on $filename: $!";

[download]

In Section Seekers of Perl Wisdom