perl -e '$val = () = 0; print $val';