if (socket(SOCKET, PF_UNIX, SOCK_STREAM, 0)) {
        connect(SOCKET, sockaddr_un($file)) || die "Could not connect: $!";
        print SOCKET $cmd;
        @results = <SOCKET>;
        print @results;