if( length $ENV{QUERY_STRING} ){
    print
        "Status: 302 Moved\015\012Location: $ENV{SCRIPT_NAME}/SiteManager\015\012\015\012"
} else {
    CGI::Application::Dispatch->dispatch();
}