Perlで掲示板を作っています

スクリプトの最初の方で

if ($mode eq 'regist') { ®ist; }
elsif ($mode eq 'find') { &find; }
　　　　　　　　　：

とズラズラ書き並べるのはカッコ悪いのですが
何か恰好良い方法はありませんか?