my $value = C->flag();

if (m/$value/} { print "OK" }
else { print "Not OK" }