open(my $swFH, '>', 'sock_waiting') or die "Cannot open sock_waiting for write:$!\n";
    close $swFH;
    my $live_socket = $socket->accept();
    unlink('sock_waiting') or die "Cannot unlink sock_waiting:$!\n";