Set a subs prototype

WWW: http://search.cpan.org/dist/Sub-Prototype/