Help for this page
perl -MStorable=retrieve -e '@ARGV = "-" unless @ARGV; print +(retriev +e $_)->foo for @ARGV' filename