seek $fh, 0, 0;