Add a sub-routine level region expansion for cperl mode.

This should mark the whole subroutine definition, when the cursor is inside
subroutine body, or somewhere between the "sub" keyword and the "{" beginning of
sub body.