Trivial Utilities

`ticker`

Having looked for new data in one of the files, the program checks to see if there was any:

            if ($b) {
              $fl1 = $fl unless defined $fl1;
              $ns = "$fn: $fl ";
              print $ns;
              printf "%.2f", $fl/66 if $opt_p && $opt_l;
              printf "%s/s", rate(($fl-$fl1)/($time -$^T)) 
                if $time > $^T && $opt_r;
              $change = 1;
              @{$item}[2,3,4] = ($fl, $ns, $fl1);

If there was a change, the program prints out $ns, the file name and size

It records this string so that it can print it out the same later on

            } else {
              print $fs;
            }
          }

If no change, it prints the same string that it printed last time

          sleep 5 unless $change;
          print "\r";
        }