是否可以编写单个perl cgi脚本来满足所有http请求

#!/usr/bin/perl
use strict;
use warnings;

use HTTP::Daemon;
my $PORT = 89;
my $server = HTTP::Daemon->new(LocalPort =>$PORT);

# Init
print \"Starting server at $server->url\\n\";
print \"You can also use http://localhost:$PORT if browsing from the same machine running this script.\\n\\n\";

# Server
my $count=0;
while (my $client = $server->accept) {
  CONNECTION:
    while (my $request = $client->get_request) {
    $count++;
    print \"Connection #$count:\\n\";
        print $request->as_string;
    print \"\\n\";
        $client->autoflush;
      RESPONSE:
    print $client \"Relative URL used was \" . $request->url->path;
    last CONNECTION;
    }
    $client->close;
    undef $client;
}

index.cgi

mod_rewrite

/index.cgi/foo

foo

$ENV{\'PATH_INFO\'}

use HTTP::Daemon;  # need LWP-5.32 or better
use HTTP::Status; 
use HTTP::Response;
use URI::Heuristic;
my $server = HTTP::Daemon->new(LocalPort => 89);
my $this_url = $server->url;

mod-rewrite