my $cgi = CGI->new;
my $param = $cgi->param('action');

my %dispatch = (
    speicher => \&speichern,
    liste    => \&liste,
);

my $sub = $dispatch{$param} || $dispatch{liste};
$sub->();