Works with linux, bash and perl 5.6.1:

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

-- stefp