Perl script use to stress test Stream Server