#!/usr/bin/perl -w

use strict;
use Cwd;

my $BASEDIR = getcwd();

my $exe = '$SIM/arch-model $SIMTESTS/perlbmk/mipsver';
my $proc = "/home/mfrank/woley/ece412/target-env/apps/perlbmk/data/ref/input";

print "\nperfect\n";
chdir($proc) or die("no such directory as $proc");
my $cmd = "$exe perfect.pl b 3 > $BASEDIR/b.3.out 2>&1";
system $cmd;

chdir($BASEDIR);
print "\nscrabbl\n";
$cmd = "$exe scrabbl.pl scrabbl.in > scrabbl.out 2>&1";
system $cmd;

