Unfortunately this has to run on a stock Solaris 10 machine and it only comes with Perl 5.8.4, which I think means the "given" method will not work.

Will the dispatch table method work with this older version of perl ?