perl -e "print (shift || 'foo.html');" 0
perl -e "print (shift || 'foo.html');" 1