perl -e 'while(<>) { print eval, "\n" }'