|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/system_suspended/ |
Upload File : |
#!/usr/bin/perl
use CGI qw(:standard);
sub getParamHash
{ my (%hash);
$hash{$_} = param($_) for param();
return \%hash;
}
print "Content-type: text/html\n\n";
%HASH = %{&getParamHash()};
printf "20%s --> %s\n",$_,$HASH{$_} foreach (keys %HASH);
foreach (keys %ENV)
{
printf "%20s --> %s\n<BR>",$_, $ENV{$_};
}
print "<a href=/env.pl>again</a>";