#!/usr/bin/perl
# Hack to find environment for HTTP auth to do logging of who broke what in ipdb

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

foreach $envir (%ENV) {
  print "'$envir'\n";
#: '$ENV{$envir}'\n";
}