http://www.perlmonks.org?node_id=111413


in reply to still another $A++

Works with linux, bash and perl 5.6.1:

`echo 2 >"1 "`;open 1,1; $A += chomp ($a =<1>);

-- stefp