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

##</code><code>##

perl -le'$prod = 1; $prod *= $_ while <>; print $prod;'