I have something like that: http://www103.pair.com/parv/comp/src/perl/sanename.perl. It is also here somewhere. Edit as you like.

Whoops: Fixed the external link that was pointed to something unrelated for some brief time.