Monks of great perl wisdom I seek guidance. I have a form that posts to a perl script. The script to submit says that it submitted correctly, but the other form says otherwise, specifically it says"--xYzZY-- -- Bad length". Here is the following form

<form enctype=multipart/form-data method=post action=/cgi-access/bulk.
+pl>
File name: <input type=file size=45 name=filename><p>
<input type=submit value=Send File>
<input type=reset value=Clear>
</form>

and the perl script

#!/usr/local/bin/perl -w
require LWP::Simple;
require HTTP::Request;
require LWP::UserAgent;
require HTML::Form;
$user_agent = LWP::UserAgent->new;


$filename ='/usr/local/www/http/cgi-bin/test/cards.txt';
$url ='https://mysite:808/access/bulk.html';
$user ="";
$pass="";


$request = HTTP::Request->new(GET=> $url);
$request->authorization_basic($user,$pass);
$response=$user_agent->request($request);
print $response->as_string;


@form = HTML::Form->parse($response->content,$response->base);
$form = shift @form;
@inputs = $form->inputs;
$input = $form->find_input( "filename" );
if($input){
   print "found it!\n";
   $input ->file('/usr/local/www/http/cgi-bin/test/cards.txt');
}

$test = $form->click();
$test->authorization_basic($user,$pass);
$response=$user_agent->request($test);

print $response->as_string;

if($response->is_success){
   print "It's good!\n";
} else {
   print "It didn't work.\n";
   print $results->status_line();
}
[download]