Lexically scoped subroutine wrappers  for Perl programming