#!/usr/bin/perl

use strict;
use integer;

$| = 1;


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

my @k = keys ( %ENV );
open ( FP, ">>/tmp/igniotestextenv.txt" );

foreach my $k ( @k ) {
  printf FP "%-40s %s\n", $k, $ENV{$k} ;
}

print FP "\n\n\n\n";
close (FP);