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