perl -e '$x=1;print 1 if $x or print 0'