1;# This file, when interpreted, pulls the environment into normal variables.
2;# Usage:
3;#	require 'importenv.pl';
4;# or
5;#	#include <importenv.pl>
6
7local($tmp,$key) = '';
8
9foreach $key (keys(%ENV)) {
10    $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/;
11}
12eval $tmp;
13
141;
15