my $site_id = $cgi->param('id');
my %sites = (
    home => \&home,
    fotos =>  \&files,
    profil  => \&profile
);

if (exists $sites{$site_id}) {
   $sites{$site_id}->(\@params);
} else {
   $cgi->header(-status => '404 Not found');
}

unless ($foo) {
    &startseite(@_);
}

unless ($foo) {
    HTML::Seiten::Startseite(@_);
}

my $site_id = $cgi->param('id');
my %sites = (
    home => 'HTML::Startseite',
    fotos =>  'HTML::Images',
    profil  => 'HTML::VCard'
);

if (exists $sites{$site_id}) {
    # Modul laden
    # Aufrufen und Standardparameter an Modul übergeben

} else {
   $cgi->header(-status => '404 Not found');
}

#!/usr/bin/perl -w

use strict;
use warnings;
use lib qw(./lib ../perllib);
use CGI::Application::Dispatch;

CGI::Application::Dispatch->dispatch(
    prefix => 'MyApp',
    table  => [
        '' => {
            app => 'Index',
            rm  => 'start',
        },
        'user/:id?' => {
            prefix => 'MyApp::Index',
            app => 'User',
            rm  => 'show',
        },
        'news/:id/:rm?' => {
            prefix => 'MyApp::Index',
            app => 'News',
        },
    ],
    not_found => 'http://' . $ENV{HTTP_HOST},
);