use IO::Socket;
use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);
my $sock = new IO::Socket::INET( PeerAddr => '10.10.2.141', PeerPort => '50000', Proto => 'udp' );
die "no socket\n" unless $sock;

$totalNumPkts = 1;
$pktSize = 512;
$dataVal = 'U';
$iPkt = “1“;

for ( $i = 1; $i < $pktSize; $i++ )
{
    $iPkt += "1";
}
$startTime = Time::HiRes::time;

for ( $i = 1; $i <= $totalNumPkts; $i++ )
{
    print "sending msg ..";

    $sock->print( "Hello\n" );
    #$sock->print( $iPkt );
}
$endTime = Time::HiRes::time;
$totalTime = $endTime - $startTime;
printf( " st %f end %f total time=%f time/pkt=%f\n", $startTime, $endTime, $totalTime, $totalTime / 
$totalNumPkts );
printf("done\n");
close( $sock );