perl -MStorable=retrieve -e 'print +(retrieve shift)->foo' filename