Ответ сервера

    socket(SOCKET,PF_UNIX,SOCK_STREAM,0);
             connect(SOCKET, sockaddr_un("/tmp/mysock"))
      or die "Невозможно подключиться с : $!\n";
      print SOCKET "GETCSV\n";
      print my @names=<SOCKET>;
      close SOCKET;

 REQUEST:
   while(accept(CLIENT , SERVER)){
       if($pid = fork){
           close CLIENT;
           next REQUEST;
       }
       defined($pid) or die "Невозможно форкнуть запрос: $!";
       close SERVER;
       
       select(CLIENT);
       $| = 1;
       
       @data=<CLIENT>;
    foreach $w(@data){
      
        ...
 
 
       if($w=~/GETCSV/){
           print CLIENT "qwe\n"; <---отправляю ответ
           last;
         }
      } 
    
      close CLIENT;
      exit;
    }

#!/usr/bin/perl -w
 
use warnings;
use Socket;
 
socket(SERVER,PF_UNIX,SOCK_STREAM,0);
 
unlink "/tmp/mysock";
print STDOUT "Запуск сервера...\n"; 
bind(SERVER, sockaddr_un("/tmp/mysock")) 
                        or die "Невозможно создать сервер : $! \n";
 
listen(SERVER , SOMAXCONN);
print STDOUT "Ожидание подключения клиента...\n"; 
 REQUEST:
   while(accept(CLIENT , SERVER)){
       if($pid = fork){
          
           close CLIENT;
           next REQUEST;
      }
      defined($pid) or die "Невозможо форкнуть запрос: $!";
       close (SERVER);
       
       select(CLIENT);
       $| = 1;
       
       @data=<CLIENT>;
    foreach $w(@data){
 
       if($w=~/SAVECSV/){
           &save;
          last;
         }
       if($w=~/GETCSV/){
          print CLIENT "qwe\n";
    
           last;
         }
      } 
      close (CLIENT);
      exit;
    }
    close(SERVER);
   
   
 
 
 
 sub save{
  open CSV , ">data.csv" or die "Can't open input file!";
 foreach $w(@data){
   $w=~s/SAVECSV\0//;
   $w=~s/&/,/g;
   $w=~s/\0/ /g;
   syswrite CSV,$w;
 }   
 close CSV or die "Can't close input file!";
}  
 
sub get{ 
     open CSV, "data.csv" or die "Can't open input file!";
      @names = ();
   while ( <CSV> ) {
      if ( /^(.*), (.*), (.*), (.*)/ ) {
          push(@names, $#names+2 ."-".$1);
         }
     }
 
     close CSV or die "Can't close input file!";
   #print CLIENT join("\n", @names);   
}

@data=<CLIENT>;

@answer=<SOCKET>;
     print STDOUT @answer;