if ($foo) { print "A\n"; print "B\n"; print "C\n";