Select Code to Download

my %actions = (
        option1 => \&process_option1,
...
my $option = param('option');
$action{$option}->() or default_action();
exit;

my %file_hash = (
        a=>'notiagro.html',
...
        # and so on
    );
my $catfile = $file_hash{$cat} || 'default value';