hmm... try this script
#!/usr/bin/perl -w
my ($w,$x,$y) = ($ENV{'REMOTE_ADDR'},$ENV{'REMOTE_HOST'},$ENV{'HTTP_REFERER'});
use ExtUtils::Installed;
use Sys::Hostname;
use Net::Domain qw(hostname hostfqdn hostdomain);
use Socket;
my $inst = ExtUtils::Installed->new() or...