$zahl = 0xFC; # Zahl FCh (hex)
$bitnummer = 2; # Bit 2 = 00000100
$bimaske = 1 << $bitnummer;
print "Bit $bitnummer ist ";
if ($zahl & $bitmaske) { print "gesetzt" } 
else { print "nicht gesetzt"}