Select Code to Download

c:\test>s-udp.pl -MAXBUF=500
         Total:   347176 throughput:  9777/sec [max: 9987]

use strict;
use threads;
...
    }
}

#! perl -slw
use strict;
...

print "Sent: $sent";