#!/usr/bin/perl
######################################################################
# print the %ENV environment hash
######################################################################

while(($key,$value) = each(%ENV)) {     # get each key/value pairs
    print "$key : $value \n";           # print key : value 
}
print "\n";