The Client
file: bin/zmqx_client.pl @d72295310 1: #!/usr/bin/env perl 2: use 5.016; 3: use ZMQx::Class; 4: use Data::Dumper; 5: use Time::HiRes qw(time); 6: 7: my $control = ZMQx::Class->socket('REQ', connect=>'tcp://localhost:10001'); 8: 9: say "Sending task to Ventilator"; 10: my $start = time(); 11: $control->send(\@ARGV); 12: 13: my $reply = $control->receive(1); 14: my $stop = time(); 15: say "Got reply from Ventilator, took " . ($stop - $start); 16: say Dumper $reply;