sub StartServer_tcp_incoming_handler{
    use HTTP::Proxy;
    use HTTP::Proxy::HeaderFilter::simple;
    use Digest::SHA1 qw(sha1_hex);
    my $port = 30000;
    my $proxy = HTTP::Proxy->new( 
            host                    => $Server_IP,
            max_clients             => 80,
            min_spare_servers       => 10,
            max_keep_alive_requests => 1,
            port                    => $Server_Port );
    
    my $filter = HTTP::Proxy::HeaderFilter::simple->new(
        sub {
            my ($self, $headers, $request) = @_;
            my $uri = $request->uri();
            .........
            .........
            ...etc...