use Fcntl qw/ :seek /;
seek FH, 0, SEEK_SET;