$ for i in {1..10}; do echo $i; done | perl -ne 'BEGIN {our $prod = 1;} $prod *= $_; END { print $prod,$/; }'
3628800