#!D:/Perl/bin/perl.exe
#
# Host Update
#
# Douglas Thrift
#
# $Id$

use strict;
use LWP::UserAgent;
use POSIX;

my $agent = LWP::UserAgent->new;
my ($sysname, $nodename, $release, $version, $machine) = uname();

$agent->agent("Host Update/1.0 ($sysname $release $machine) ");

my $response = $agent->post("http://douglaspc/cgi-bin/printenv.pl", [host =>
	$nodename]);
my $content = $response->content;

print "$content
";
