$cat whenitsworking.pl

print qq!use lib qw( @INC );\n!;
print qq!local \$ENV{q($_)} = q($ENV{$_});\n! for keys %ENV;