At first I missed not having switch or case in Perl, but if you look at 'perldoc -q switch' I think you'll agree that switch.pm really isn't needed.

On the other hand, If you really feel you need to, the answers above will get you on the right road.

HTH