#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new();
my $url = 'http://lobitos.net/cgi-sys/cgiwrap/jlundell/stv-count.py';
my $ballot_file = '/home/hesco/foo/bar/ballot_file.txt';
my $request = (
#         POST => $url,
        action => 'Count',
          name => 'datafile',
  Content_Type => 'multipart/form-data',
       Content => [ 'file' => [ $ballot_file ]] );
my $response = $ua->post($url,$request);

print Dumper($response);

1;