use CGI;

use HTTP::Request::Common;
use LWP;
$ua = LWP::UserAgent->new;

my $res= $ua->request(POST 'http://server.com/cgi-bin/upload.cgi',
                [description  => 'a description', 
                 filetoupload => 'c:/test.dat' ]);

if ($res->is_success) {print "success\n";} 
  else {print "failed $!\n";}