open (OUTPUT, ">$fname.tmp");
        open (DATA, "$fname");