#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use Time::HiRes qw(gettimeofday tv_interval);

my $ua           = LWP::UserAgent->new();

my $user         = "demo";
my $passwd       = "page";
my $url          = "http://nowhere.com/cgi-bin/bozo.cgi";

my $req          = POST $url,[user=>$user,passwd=>$passwd];
my $start_time   = [gettimeofday];
my $html         = $ua->request($req)->as_string;
my $elapsed      = tv_interval($start_time);