You could also do it this way:

use strict;
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new('GET', 'http://server.com/cgi-bin/upload.
+cgi');
my $resp = $ua->request($req, 'c:/test.dat');

if ($resp->is_success) {
   print "Success.\n";
} else {
   print "Failed.\n";
}
[download]

--Jim

Update: Sorry about that. I misread the original post and was thinking download.