$SIG{PIPE}=sub{

    close(SERVER);

    close(CLIENT);

    close(SOCK);

    exit;

}

$|=1; # отключаем буферизацию потока STDOUT

# Принимаем подключения

while (accept(CLIENT,SOCK)){

           print "Connection detect. ";

           # Соединяемся с удалённым FTP

           socket(SERVER,PF_INET,SOCK_STREAM,getprotobyname('tcp')) or die $!;

           connect(SERVER,$paddr);

           # Начинаем обмен информацией

           while(1){

                 my $server='';

                 # Отключаем буферизацию потоков клиента и сервера

                 select(CLIENT); $|=1;

                 select(SERVER); $|=1;

                 select(STDOUT);

                 # Пока сервер не завершил передачу

                 # идентификатором статуса принимаем все данные, отдаём клиенту, а заодно выводим на экран

                 while($server !~/^d{3}s/){

                        $server=<SERVER>;

                        print CLIENT $server;

                        print $server;

                 }

                 # Принимаем команду от клиента и передаём серверу. Также выводим на экран

                 my $client=<CLIENT>;