#!/usr/bin/perl open (LOG,">>/home/nemesis/test.out"); foreach $var (keys %ENV) { print LOG "$var : $ENV{$var}\n"; } print LOG "--------------\n"; while () { print LOG $_ } close LOG;