Skip to content

Instantly share code, notes, and snippets.

@hablutzel1
Created June 9, 2014 01:47
Show Gist options
  • Save hablutzel1/5f873b6adeffa27c416a to your computer and use it in GitHub Desktop.
Save hablutzel1/5f873b6adeffa27c416a to your computer and use it in GitHub Desktop.
#!/usr/bin/perl
=head1 DESCRIPTION
printenv — a CGI program that just prints its environment
=cut
print "Content-type: text/plain\r\n\r\n";
for my $var ( sort keys %ENV ) {
printf "%s = \"%s\"\r\n", $var, $ENV{$var};
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment