http-server-cgi.pl

#!/usr/bin/perl
use strict;

my $script = shift or die "script required";
MyWebServer::CGI->new->run;

package MyWebServer::CGI;
use base qw( HTTP::Server::Simple::CGI );

sub handle_request {
    my $self = shift;
    my $cgi  = shift;

    CGI::nph(1);
    local *CGI::new = sub { $cgi };
    do $script;
}