| Current Path : /home/bitrix/ext_www/mr.yacl.site/ |
| Current File : /home/bitrix/ext_www/mr.yacl.site/test.pl |
#!/usr/bin/perl
use strict;
use warnings;
print qq(Content-type: text/plain\n\n);
print "REMOTE_USER -> $ENV{REMOTE_USER}\n\n";
foreach (keys %ENV){
print "$_ -> $ENV{$_}\n";
}