print '<pre>',map{"$_ => $ENV{$_}\n"}keys %ENV, '</pre>';