#!/usr/bin/perl
use strict;
use warnings;

my $file = $ARGV[0];
open (RAW, '<', "./$file") or die "Can't open $file for read: $!";

my @first;
my $line_count = 0;
while (<RAW>){
  chomp;
  next if /!/;
  my @col = split /,/,$_;
  if (++$line_count == 1){
    @first = @col;
    print "\n--------------------------------\n";
    print "Start $first[1]\n";
    print sprintf "%10s %10s %10s\n",'+secs','value','change';
    print sprintf "%10s %10s %10s\n",'-'x10,'-'x10,'-'x10;
  }
  print sprintf "%10d %10.3f %10.3f\n",
    ($col[0] - $first[0]),
     $col[2],
    ($col[2] - $first[2]);
}