Select Code to Download

use Socket qw( AF_UNIX SOCK_STREAM PF_UNSPEC );

...
    shutdown($_[1], 0);  # No more reading for writer
    return 1;
}

use IPC::Open3 qw( open3 );

...
...

waitpid($pid, 0);