#!/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";