#! /usr/bin/perl -w

print "Status: 200 OK\nContent-type: text/plain\n\n";

use CGI;

$cgi = new CGI;

print `w`;