romuald · March 24, 2021 10:19
diff --git a/timing.pl b/timing.pl
 #!/bin/env perl
 # Usage: anycommand | timing.pl
 use strict;
 use warnings;
 use Time::HiRes qw/time/;

 my $start  = time();
 while (<>) {
    printf "%.3f ", time() - $start;
    print;
 }
	#!/bin/env perl
	# Usage: anycommand \| timing.pl
	use strict;
	use warnings;
	use Time::HiRes qw/time/;

	my $start = time();
	while (<>) {
	printf "%.3f ", time() - $start;
	print;
	}