Help for this page
sub{print qq[sub{print qq[$_[0]]}->(q[$_[0]])]}->(q[sub{print qq[$_[0] +]}->(q[$_[0]])])
sub { print qq[ ... ) ] )