Select Code to Download

use strict;
use warnings;
...
    }    
}
print WR2"$count=$C\n" unless($found);

use strict;
use warnings;
...
    }    
}
print WR2"$count=$C\n" unless($found);

use strict;
use warnings;
...
    $count++;    
}
print WR2 "$count=$C\n" unless($count);