perl -e'print%{{<>}}'