perl -nle'BEGIN { $prod = 1; } $prod *= $_; END { print $prod; }'