#!/usr/bin/perl -w

eval 'exec perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

require 5;
use strict;
use LWP::UserAgent;
use URI::URL;
use HTTP::Request;

my $content;

my $ua = new LWP::UserAgent;

my $uri;

$uri = new URI::URL "http://172.16.4.25/cgi-bin/stats-cgi/hist.cgi";
$uri->query_form("netid" => 'system-SYSTEM',
                 "report_type" => 'Daily Totals',
                 "market" => 'PHL');

my $req = new HTTP::Request GET => $uri->as_string;

my $res = $ua->request($req);

if (!$res->is_success) {
    die "Fetch failed\n";
}
$content = $res->content;

print $content;