hesco@marcus8:~$ perl GP/GPotUS/2009/ETC/lib/upload_test.pl
Useless use of a constant in void context at lib/upload_test.pl line 15.
Useless use of a constant in void context at lib/upload_test.pl line 15.
Useless use of a constant in void context at lib/upload_test.pl line 15.
Useless use of a constant in void context at lib/upload_test.pl line 15.
Useless use of a constant in void context at lib/upload_test.pl line 15.
Useless use of a constant in void context at lib/upload_test.pl line 15.
Useless use of a constant in void context at lib/upload_test.pl line 15.
$VAR1 = bless( {
  '_protocol' => 'HTTP/1.1',
  '_content' => 'no field \'datafile\'',
  '_rc' => '200',
  '_headers' => bless( {
    'client-date' => 'Thu, 17 Sep 2009 06:24:54 GMT',
    'content-type' => 'text/plain',
    'connection' => 'close',
      'client-response-num' => 1,
      'date' => 'Thu, 17 Sep 2009 06:25:35 GMT',
      'client-transfer-encoding' => [
                 'chunked'
          ],
      'client-peer' => '216.92.168.130:80',
      'server' => 'Apache/2.2.13'
    }, 'HTTP::Headers' ),
    '_msg' => 'OK',
    '_request' => bless( {
    '_content' => 'file=%2Fhome%2Fhesco%2Ffoo%2Fbar%2Fballot_file.txt',
    '_uri' => bless( do{\(my $o = 'http://lobitos.net/cgi-sys/cgiwrap/jlundell/stv-count.py')}, 'URI::http' ),
    '_headers' => bless( {
   'user-agent' => 'libwww-perl/5.830',
   'content-type' => 'application/x-www-form-urlencoded',
   'content-length' => 50
 }, 'HTTP::Headers' ),
    '_method' => 'POST',
    '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
    }, 'HTTP::Request' )
}, 'HTTP::Response' );
hesco@marcus8:~$