Skip to content

Instantly share code, notes, and snippets.

Last active Aug 29, 2015
What would you like to do?
use strict;
use warnings;
open my $OUT, ">> /home/mk/public_html/lingr.log";
foreach my $key (keys %ENV) {
print $OUT "$key$ENV{$key}\n";
close $OUT;
print "Content-type: text/plain\n\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment