my $junk;
print 1+$junk;