#!/usr/local/bin/perl -w
# calls calclocalshells.prl for each of the data files in subdirectory data

@files=qw(`ls data/*.ent`);

while (<@files>){
system("./calclocalshells.prl ".$_);
print $_ ."\n";
}
