#!/usr/bin/perl -w
use strict;
use blib;

use PX14Mon;

my $pxmon = new PX14Mon();

print $pxmon->currentfile(), "\n";

while (1) {
  print "\n";
  printf "File: %s\n", $pxmon->currentfile();
  printf "File: %s\n", $pxmon->lastfile;
  printf "Recording: %d\n", $pxmon->recording();
  printf "Buf: %d\n", $pxmon->bufdone;
  printf "Stddev: %.1f, %.1f\n", $pxmon->stddev;
  printf "Rate: %.1f Mbps\n", $pxmon->rate;
  printf "Sec: %d \n", $pxmon->recsec;
  printf "Offset: %.1f msec\n", $pxmon->timeoffset*1000;

  sleep(1);
}