Hey, here's another shot at 37 characters:

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

Update: oops! I hadn't seen tadman's Update 2.0... I'm too late :-(

--bwana147