file upload

[Richard Dobson]

hi,


i'm trying to upload a couple of files using the following form:


<p><form enctype="multipart/form-data" action="upload.cgi" method="post">
<p><b><u><font face="Arial,Helvetica"><font size=+1>
To run a detailed ssSNPer
analysis on a single SNP:</font></font></u></b>
<p><font face="Arial,Helvetica">Specify the location
of your file containing
the test SNP rs# (e.g., "<a
href="http://fraser.qimr.edu.au/general/daleN/ssSNPer/rs1800630snp.txt";>rs1800630snp.txt</a>"):</font>
<br><input name="testSNP" type="file">
<p><font face="Arial,Helvetica">Specify the location of your HapMap SNP
genotype data dump file (e.g., "<a
href="http://fraser.qimr.edu.au/general/daleN/ssSNPer/rs1800630dumpedregion.txt";>rs1800630dumpedregion.txt</a>"):</font>
<br><input name="HapMapData" type="file">
<p><font face="Arial,Helvetica">Please be patient, our web server may be
busy and depending upon the size of your test region your query may take
a few minutes (the example files take ~90 seconds).</font>
<br><input type="submit">

</form>



i'm using the following piece of code to submit:

#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use WWW::Mechanize;
use HTML::Form;

my $ua = LWP::UserAgent->new;
my $response = $ua->get("http://fraser.qimr.edu.au/general/daleN/ssSNPer/";);
my $form = HTML::Form->parse($response->decoded_content,
                                  $response->base);
my @inputs = $form->inputs;

$inputs[0]->file( "/tmp/hapmap/rs1800630snp.txt " );
$inputs[1]->file( "/tmp/hapmap/rs1800630dumpedregion.txt" );

$ua = LWP::UserAgent->new;
$response = $ua->request($form->click);


my $content=$response->content;

print  $content;



the error that I get in the $content states that the files failed to upload.



Any ideas?