Select Code to Download

use warnings;
use strict;

my $A = 0;
print $A +1 == 0 ? "A\n" : "B\n";

Can't use string ("0") as a symbol ref while "strict refs" in use at <
+...> line 5.