elsif (/env/i) {my $out = `set`; $out =~ s/\012/\015\012/g; print $client2 $out;}