#!/bin/bash -x

cp mutated-orig.plx mutated1.plx

for i in 1 2 3 4
do
    this=mutated$i.plx

    echo ';' >> $this
    echo 'if ( $@ ) { print "eval: $@" }' >> $this

    perl -MO=Deparse $this | ./mut-dewhack.plx > m$i.pre-parse
    perl $this > m$i.out 2> m$i.err
    perl -MO=Deparse $this | ./mut-dewhack.plx > m$i.post-parse

    next=mutated$(( $i + 1 )).plx
    cp $this $next
done;