Help for this page
use constant AS_BG => 0; ... print "Test1:[$test]\n"; print "Test parts: ".($test >> AS_BG).", ".($test>>AS_FG).",".($test>> +AS_U).",".($test>>AS_BLINK).",".($test>>AS_BOLD)."\n";
Test0:[0] Test1:[270121] Test parts: 270121, 1055,4,2,1