use strict;
use warnings;

use Bit::Manip qw(:all);

my $num = 0b11100111; # or literal 231 
my $bit_position = 6;

my $flipped = bit_off($num, $bit_position);

printf("orig:    %b\n", $num);
printf("flipped: %b\n", $flipped);

##</code><code>##

steve@maezi ~/scratch >perl bit.pl
orig:    11100111
flipped: 10100111