#!/usr/bin//perl -w

use strict;
use Astro::Time;

my $year=2008;

my ($ut, $lastmjd, $thismjd, $sec);

foreach (@ARGV) {

  if (/(\d\d\d)_(\d\d)(\d\d)(\d\d).lba/) {
    $ut = str2turn("$2:$3:$4",'H');
    $thismjd = dayno2mjd($1, $year, $ut);

    if (defined $lastmjd) {
      $sec = ($thismjd-$lastmjd)*60*60*24;
      printf("%20s  %2.0f\n", $_, $sec);
    }



    $lastmjd = $thismjd;

  } else {
    warn "Skipping $_\n";
  }
}