#!/usr/bin/perl -w
# j.henning 7-May-1998 SPEC CPU2000 test input derived from perl
# installation 't' directory (TEST)
# KMW modification to run as a native perl script

use strict;
#use English;
#$OUTPUT_AUTOFLUSH = 1;

my $exe = '$SIM/arch-model $SIMTESTS/perlbmk/mipsver';

my @scripts = qw (
append
arith
array
auto
chop
cmdopt
cmp
cond
decl
delete
do
each
elsif
eval
exp
for
goto
gv
if
inc
index
int
join
lex
list
local
method
mod
my
oct
ord
package
pat
print
push
quotemeta
rand
range
recurse
redef
ref
repeat
script
sleep
sort
split
sprintf
study
subst
substr
subval
switch
symbol
term
time
undef
unshift
vec
while
);

foreach my $s (@scripts) {
   print "\n$s\n";
   my $cmd = "$exe $s.t > $s.out 2>&1";
   system $cmd;
}
