Similar to your second one...

$ echo -e 'foo\n' | perl -e'print sort{*a=$b,0} <>'
*** glibc detected *** malloc(): memory corruption: 0x0812dcdc ***
Aborted
[download]

-sauoq
"My two cents aren't worth a dime.";