ticker

• Instead of emitting the file contents as output, ticker emits the size

• As the file grows, the number goes up

• Basic idea:

 my $file = shift 
 or die "Usage: 0ドル filename\n";
 open my($fh), "<", $file
 or die "$file: $!\n";

 while (1) {
 while (<$fh>) {
 $size += length;
 print $size, "\r";
 }
 sleep 1;
 seek $fh, 0, 1 or die "seek: $!";
 }