#!/usr/bin/perl

use FindBin qw($RealBin);
require "$RealBin/../BuildFarmWeb.pl";

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

print "Conf: $RealBin/../\n";

print `pwd`;

print `id`;

foreach my $key (sort keys %ENV)
{
  my $val = $ENV{$key};
  print "$key=$val\n";
}