Fix warnings from deprecated Perl syntax.

This changes 'do subroutine' to '&subroutine'.