Can you specify the website so I can test a script or post the code you are using? I presume you are using LWP::UserAgent and HTTP::Request something like this:

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
$ua = new LWP::UserAgent;

$req =  POST ( 'http://www.page.com/app?cmd=upload',

        Content_Type => 'form-data',

        Content      => [ name  => 'value',

                         name   => 'value',

                         file   => ["/path/to/file.txt"],

                         ]
                 );

$response = $ua->request($req);
[download]

Update

Website remains down. This code seems to check out OK.

$filename = "c:/test.pl";
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $ua = new LWP::UserAgent;  

my $req = POST ('http://www.environet.gov.on.ca/dwws-app/DWWSApp?cmd=U
+ploadSubmPage.uploadSubm',
                Content_Type => 'form-data',
                Content      => [
                                works_id => '2353245', 
                                lab_id   => '456436', 
                                filename => [$filename]
                                ]
                );
           
print $req->as_string; # looks OK
             
my $res = $ua->request($req);

print $res->as_string;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print