Select Code to Download

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
print Data::Dumper->new([\%ENV],['*ENV'])->Useqq(1)->Sortkeys(1)->Dump
+();