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";
}