Select Code to Download

my %dispatch_table = (
 list => \&list,
...
print $query->header, $query->start_html();
&{$dispatch_table{$mode}};
print $query->end_html;