sub process_request {
    my $a = shift @_;

    if (not $a =~ m!^http://.*!) {
        $a = "http://$a"
    }

    my $url = URI->new($a);
    my $host = $url->host();
    my $port = $url->port();
    my $path = $url->path();

    if ($port eq "") {
        $port = 80;
    }

    if ($path eq "") {
        $path = "/"
    }

    return ($host, $port, $path);
}