#!/usr/local/perl -w

foreach $c (keys %ENV) {
        print "$c \t".$ENV{$c}."\n";
        }