$ perl -E 'my $test_rec = "Query" . "X" x 40; open my $fh, ">", "test_data_Q"; $fh->say($test_rec) for 1..769114;'

$ ls -l test_data_Q
-rw-r--r-- 1 ken None 35379244 Jan 23 17:23 test_data_Q

$ wc test_data_Q
  769114   769114 35379244 test_data_Q

$ head -1 test_data_Q
QueryXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX