my $junk;
print 1 + ($junk || 0);