#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;

  my $server          = shift;
  my $content_length  = shift || 1024;
  my $pattern         = shift || '#';


  my $useragent = LWP::UserAgent->new;

  my $http_request = HTTP::Request->new(POST => $server);

  $http_request->content_type('text/plain');

  $http_request->content($pattern x ($content_length / length($pattern)) );

  print	"\nRequest Content Length is ", length $http_request->content,".\n";

  my $http_response = $useragent->request($http_request);

  print "\n<response>\n", $http_response->as_string, "</response>\n";