open (TOT_TXT, '>', $tot_file) || die "$tot_file open failed: $!";