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