my $ua = LWP::UserAgent->new;
# Allow post redirects to happen
push @{ $ua->requests_redirectable }, 'POST';
my $result = $ua->request(POST $PostURL,
             Content_Type => 'form-data',
             Content      => [ user  => $UserID,
                         password => $Password,
                         trk_code => $TheTrackCode,
                         upfile   => [$UploadFile],
                       ]);

if ($result->is_success)
{
   # means we got a success message back
   my $ReturnText = $result->content();
   if (index($ReturnText, "You successfully uploaded file") > -1)
   {
      print "Upload succeeded\n";
      $ReturnVal = 1;
   }
   else
   {
      print "Upload failed\n$ReturnText\n";
   }
}
else
{
   print "ERROR OCCURED (Code was " . $result->code() . ")\n";
	my $ReturnText = $result->content();
	print "Return Text was\n$ReturnText\n";
}