The Publisher using ZMQx::Class
file: bin/zmqx_publisher.pl 1: #!/usr/bin/env perl 2: use 5.016; 3: use ZMQx::Class; 4: use AnyEvent; 5: 6: my $publisher = ZMQx::Class->socket('PUB', bind=>'tcp://*:10001'); 7: 8: say "Collect MP3 filenames"; 9: my $data = get_mp3_data(); 10: 11: say "Start publishing messages"; 12: my $w = AnyEvent->timer(after => 1, interval => 0.1, cb => sub { 13: my $message = $data->[rand(@$data)]; 14: $publisher->send($message); 15: }); 16: AnyEvent->condvar->recv;