karl@pazuzu:~/src/perl/debug/sexp-tiny$ echo '(acme (x 1))' | bin/sexp.pl 
bin/sexp.pl expected (key value...)