karl@pazuzu:~/src/perl/debug/sexp-tiny$ echo '(acme (x "1"))' | bin/sexp.pl 
{ fields => { x => 1 }, type => "acme" }