This is the client part of a script that collects the username and computer name and sends it to a database for tracking purposes, when I find the server side of the script I will post that also.
#!/usr/bin/perl
#Grabs Certain local data and send it to an ICC database.
$user = $ENV{'USER'};
use Sys::Hostname;
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $response
= $ua->post('http://web.url.com/getlinfo.asp',
{ user => $user,
machine => hostname,
});
my $content = $response->content;