#!/usr/local/bin/perl -w use strict; foreach (keys %ENV) { print "[$_] $ENV{$_}\n"; }