#!/usr/bin/perl
use strict;

# filetimestamp.pl
# start this just after psiblast

my(
   $file,
   $i,
   $newtime,
   $lasttime,
   $round,
   $t,
   );


$file = $ARGV[0];
$lasttime=0;
$round=1;
for ($t=0;$t<2400;$t++) {    # 2400*5sec=200min
    $newtime = (stat($file))[9];
    if ($newtime ne $lasttime) {
	# mittelwert berechnen (statistic ist ihr Programm zur Mittelwertberechnung einer Spalte eines files), z.B. 
	system("echo -n $round >> notes; echo -n '\t' >> notes; statistic pax6.mat 43 | grep average >> notes");
	$lasttime=$newtime;
	$round++;
    }
    sleep(5);
}