#!/usr/bin/perl
 
# perl cookbook recipie 20.2
# submit form values to a CGI script from your program
# format of query string:  field1=value1&vield2=value2&field3=value3

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

$ua = LWP::UserAgent->new();
my $req = POST 'http://www.stilen.com/cgi-bin/awstats.pl', [ module=> 'DB_File', readme=>1 ];
$content = $ua->request($req)->as_string;

print $content ;