sub split_request( $ ) { my $http_request = $_[0]; my $method = ""; my $web_request = ""; my $request = ""; my $uri = ""; my $version = ""; ($method,$web_request) = split( / /,$http_request, 2 ); ($request,$version) = split( / /,$web_request, 2 ); ($request,$uri) = split( /\?/,$request ); }