johngg@shiraz:~/perl/Monks$ perl -E '
$_ = qq{0\n};
say $_ ? q{True} : q{False};
chomp;
say $_ ? q{True} : q{False};'
True
False