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