perl -e'print sort{int rand 2or-1}<>'