#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw( POST );
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 $response = $ua->request(POST $url,
    Content_Type => 'multipart/form-data',
         Content => [
           datafile => [ $ballot_file ],
             action => 'Count',
    ],
);

# print Dumper($response->{'_content'});
print Dumper($response->content());

1;