Select Code to Download

#!/usr/bin/env perl

...
    $var2 &= ~(1 << $bit);
    printf $fmt, $var2;
}

#!/usr/bin/env perl

...

    return $num;
}

Initial:
00010100
...
Bit 4 off:
00000100
00000100