Select Code to Download

#! perl -slw
use strict;
...
}

print "All done.";

#! perl -slw
use strict; ## monitored.pl
...
    select '','','', 0.001;
    send( SOCKET, sprintf( "\r%.f%%\t", $milli / ($runtime*10) ), 0, s
+ockaddr_in( $port, inet_aton( 'localhost' ) ) ) or  die "send: $^E";
}