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