#!/usr/bin/perl
# Includes.

use HTTP::Request::Common;
use LWP::UserAgent;
use HTTP::Cookies;

# Changable Parameters

$size=32;


$WebHost='1.2.3.4';
$FirstStage="http://$WebHost/wibble/flip/pants.cgi";

$cookie_jar=HTTP::Cookies->new( file => "./cookies");

# Code

print STDERR "Creating user agent...";
$ua=LWP::UserAgent->new;
print STDERR "done\n";
print STDERR "Creating cookie jar...";
$ua->cookie_jar($cookie_jar);
print STDERR "done\n";

%myhash = [ username   => "" ];

print STDERR "making string...\n";
open(zero, "/dev/zero") || die "/dev/zero failed to open: $!";
sysread(zero, $myhash{username}, $size*1024*1024); 

# using sysread to remove i/o buffers from our problem space.  Solaris will honour our request in full. YMMV.

close(zero);
print STDERR "username now ";
print length($myhash{username}), " bytes\n";
print STDERR "About to post form data...";

$response=$ua->request(POST $FirstStage, \%myhash);

print STDERR "done\n";