Server-provided Environment variables

#!/opt/bin/perl # list all ENV variables by [biosysadmin] print "List of all environment variables:\n"; while ( my($env_name,$env_value) = each %ENV ) { print "\t$env_name = $env_value\n"; } -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--= # env2.pl ##

##
## [eXile]

#!/bin/perl
print "3:";
print "Content-type: text/html\n\n";
print "\n";
print "Server-provided Environment variables";
print "\n\n";
print "\n";
print "\n";
foreach my $x (keys %ENV) {
  print "\n";
}
print "Environment Variables
$x $ENV{$x}\n";

##

##

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=

# cgi-bin

use CGI qw(header);
print header('text/plain');
for (sort keys %ENV) {
  print "$_ => $ENV{$_}\n";
}
# [merlyn]

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=

#!/usr/bin/perl -w
use CGI qw(header);
print header('text/plain');
print map { "$_ => $ENV{$_}\n" } sort keys %ENV;

#[defyance]