sub { my( $said ) = @_; print $said->{body}; } __DATA__ Echo just prints its argument verbatim.