seek FH, 0, 1;

##</code><code>##

seek FH, 0, 1 or die "seek failed: $!";