use strict;
use warnings;

use IO::Socket::INET qw( pack_sockaddr_in inet_aton );

my $port    = shift || 54321;
my $socket  = IO::Socket::INET->new( Proto => 'udp' );
my $runtime = rand 10;

$| = 1;

for my $num ( 0 .. $runtime * 100 ) {
    send ( $socket, sprintf("%.f%% ", $num / $runtime),
           0, pack_sockaddr_in($port, inet_aton('127.0.0.1'))
    ) or  die "send: $^E";

    select '', '', '', 0.015;
}