#!/usr/sww/bin/perl

# Runs through all the *.survey files and tally up the results
# by Gek Siong Low, Jan 1999

# Data is pretty much hardcoded at the moment.
# I'll do a data-directed version later if desired.
use strict;

my $report;
my $scitsFileName;

$report = "report.txt";

system("cat *.survey1 > answer1.txt");
system("cat *.survey2 > answer2.txt");
system("cat *.survey3 > answer3.txt");
system("cat *.survey4 > answer4.txt");
system("cat *.survey5 > answer5.txt");

print "Please check out the answer*.txt files.\n";

# files_list.txt is generated with "ls -1 *.survey"




