#!/usr/bin/perl
print "Content-type: text/plain\r\n\n";
system( "uname -a" );
system( "uptime" );