open OUTPUT, '>', "$fname.tmp" or die "Cannot open '$fname.tmp' $!";
        open INPUT,  '<', $fname or die "Cannot open '$fname' $!";