Práctica: Construcción de un wrapper

Complete la subrutina wrap para que admita envolver la entrada y la salida de una subrutina:

wrap 'mirutina',
  pre => sub { print "Ejecutando ".shift()."  con args <@_>\n"; @_  },
  post => sub { print "Saliendo de mi_rutina\n"; @_  }
;

El código post recibe como argumentos al resultado de la subrutina 'envuelta'.