perl -e '$_=shift;print(defined$_?$_:0)'