You do it the same way as in C, using bitwise operators. E.g.

my $mask = 1 << 6;    # 0100 0000
if ( $mask & 66 ) { 
    print "It's on" 
} else { 
    print "It's off" 
}
[download]