$ perl -e'sub state { print "I state: @_\n" } state("foo");'
I state: foo