C:\temp>perl -e "print -s($_) <= 2"
1