#! perl -slw
use strict; ## monitored.pl
use IO::Socket;

$|++;

my $port = shift;
socket( SOCKET, PF_INET, SOCK_DGRAM, getprotobyname('udp') ) or die "socket: $!";


my $runtime = rand( 120 );
for my $milli ( 0 ..  $runtime * 1000 ) {
    select '','','', 0.001;
    send( SOCKET, sprintf( "\r%.f%%\t", $milli / ($runtime*10) ), 0, sockaddr_in( $port, inet_aton( 'localhost' ) ) ) or  die "send: $^E";
}