Select Code to Download

use Time::HiRes qw( usleep );

for (;;) {
   usleep(250000);
}

use strict;
use warnings;
...
   my $e = time;
   printf("%.0f\n", ($e-$s)*100000);
}