6 use Time::HiRes qw/time/;
7 use Data::Dump qw/dump/;
13 $start_t = $last_t = time();
17 die "arguments wrong: ",dump( @_ ) unless $#_ == 2;
18 my ($file, $pos, $size) = @_;
23 return unless $start_t == $last_t
25 || $t - $last_t > 0.75 # s
32 my $speed = $pos / $t;
35 printf STDERR "%s %d/%d %.2f%% %.2f K/s ETA %.1fs \r"
39 , ( $size - $pos ) / $speed