- socket(my $conn, PF_UNIX, SOCK_STREAM,0) || die "socket: $!";
- connect($conn, $socketaddr) || die "socket connect: $!";
+ open(my $conn, "| ".$zmqclient);
+ #socket(my $conn, PF_UNIX, SOCK_STREAM,0) || die "socket: $!";
+ #connect($conn, $socketaddr) || die "socket connect: $!";