#!/usr/bin/perl
#reads all the files fro the directoty $spath
# and runs the program t5.pl on each file
# the results are collected on a file named "tt"
use strict;

my $spath = "/home/infofa/h/users/diana/ir_ml/coll/";

my ($i, @files, $line, $name);

opendir S, $spath
  or die "Cannot open directory $spath: $!";
@files = grep -T, map $spath.$_,readdir S;
closedir S;
                                                                              
foreach $i (@files)
{ # print $i, "\n";
  if ($i =~ /(coll\/[^\/]+)$/o)
  {$name= $1; print $name,"\n";
   system("perl t5.pl $name >>tt");
  }
}