#!/bin/sh 
#! perl 
eval 'exec perl -x $0 ${1+"$@"}'
        if 0;

$sum = 0;
foreach $file (<*.gb>) {
	$info = `sgbpeek $file | head -1`; 
	$_ = $info;
	if (/.*degree\s*=\s*(\S*)/) {
		$sum += $1;
		$count++;
	}
	$mean = $sum/$count;
}
print "$mean\n";

