A switch statement for Perl, do not use if you can use given/when Damian Conway (damian@conway.org)