Trivial Utilities

`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: $!";
     }