#!/usr/bin/env perl
use lib '/s/w/lib/dan';
print("Content-type: text/html; charset=utf8\n\n");
#print("USER = $ENV{USER}\n");
print('USER = ', `whoami`);
print("<h1>INC</h1>\n");
print('<pre>', join("\n", @INC), "</pre>\n");
print("<h1>ENV</h1>\n");
print('<pre>');
foreach my $key (sort(keys(%ENV)))
{
    print("$key='$ENV{$key}'\n");
}
print("</pre>\n");
#use test;
#test::test();
use kecy;
kecy::obratte_se_na_nas();