mojo_ws_client.pl

 $tx->on(drain =>  
    sub {
      print "JSON Data Sent.\n";
      Mojo::IOLoop->stop;
    }); 
    
  foreach my $i (1..10) {
    my $ts = POSIX::strftime("%Y%m%d%H%M%S", localtime);
    foreach my $se (@SEList) {
      my $json = '{"test_id":"10","a_id":"20","se_id":"30","timestamp":"20151029194500","payload":{"kpi1":"23.45"}}';
      $tx->send($json);
      Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
      sleep(5);
    }
  }