#!/usr/bin/perl

die "unable to open $ARGV[0]/exec_info_input1" unless open (INFILE, "$ARGV[0]/exec_info_input1");
die "unable to open run.sh" unless open (OUTFILE, ">run.sh");
print OUTFILE "export BENCH_DIR=$ARGV[0]\n";
while (read(INFILE, $x, 8192)){
    print OUTFILE $x
}
print OUTFILE '${SETUP}'."\n";
print OUTFILE 'CMD1="'."$ARGV[0]/Xemu".' "'."\n";
print OUTFILE 'CMD=$CMD1$ARGS'."\n";
print OUTFILE 'echo $CMD | sh'." >".'${RESULT_FILE}'."\n";
print OUTFILE '${CLEANUP}'."\n";
print OUTFILE 'echo ${CHECK} | sh'."\n";
close (INFILE);
close (OUTFILE);
print "BEGIN BENCHMARK\n";
`sh run.sh`;
print "END BENCHMARK\n";

