#!/usr/bin/perl -w

use POSIX "uname";
use strict;

my ($sysname, $nodename, $release, $version, $machine ) = uname;

print "Content-type: text/plain\n\n";

print "System = $sysname\n";
print "Hostname = $nodename\n";
print "OS Release = $release\n";
print "OS Version = $version\n";
print "Machine Type = $machine\n";

##</code><code>##

System = FreeBSD
Hostname = travisspencer.com
OS Release = 4.11-YAHOO-20061130
OS Version = FreeBSD 4.11-YAHOO-20061130 #0:
Machine Type = i386

##</code><code>##

Can't load '/blog-mt/extlib/auto/Digest/SHA1/SHA1.so' for module
Digest::SHA1: Cannot execute objects on /p12/m/b28
 at /foo/test.cgi line 5
Compilation failed in require at /foo/test.cgi line 5.