c:\@Work\Perl>perl -wMstrict -le "print '>', !1, '<';"
><
c:\@Work\Perl>perl -wMstrict -le "print '>', !1 && 1, '<';"
><