Environment

<% foreach my $var (sort keys %ENV) { my $val = $ENV{$var}; $val =~ s|\n|\\n|g; $val =~ s|"|\\"|g; print qq{
• ${var} = "${val}"
\n}; } %>