harness from Parrot

(kadath)(~/git/euler_bench master )$ BENCH_CONFIG=bench.yaml ./bin/bench run_parrot_harness sh --count=100 --order=avg
                                      min     max     avg    total
 sh /bin/sh     run_parrot_harness  0.1256  0.1810  0.1339  13.3905
(kadath)(~/git/euler_bench master )$ BENCH_CONFIG=bench.yaml ./bin/bench run_perl_harness sh --count=100 --order=avg
                                    min     max     avg    total
 sh /bin/sh     run_perl_harness  0.2079  0.3931  0.2400  23.9956
(kadath)(~/git/euler_bench master )$ bc -l
bc 1.06
Copyright 1991-1994, 1997, 1998, 2000 Free Software Foundation, Inc.
This is free software with ABSOLUTELY NO WARRANTY.
For details type `warranty'. 
13.39/23.99
.55814922884535223009
quit
(kadath)(~/git/euler_bench master )$ ./run_perl_harness 
/Users/leto/git/tapir/t/00-sanity.t ................. ok                
/Users/leto/git/tapir/t/01-parse_plan.t ............. ok                
/Users/leto/git/tapir/t/03-parse_tapstream_error.t .. ok                
/Users/leto/git/tapir/t/02-parse_tapstream.t ........ ok     
All tests successful.
Files=4, Tests=62,  0 wallclock secs ( 0.04 usr  0.02 sys +  0.05 cusr  0.05 csys =  0.16 CPU)
Result: PASS
(kadath)(~/git/euler_bench master )$ ./run_parrot_harness 
t/00-sanity.t..........passed 2 tests
t/01-parse_plan.t..........passed 3 tests
t/02-parse_tapstream.t..........passed 45 tests
t/03-parse_tapstream_error.t..........passed 12 tests
PASSED 62 test(s) in 4 files
(kadath)(~/git/euler_bench master )$ cat run_perl_harness 

cd ~/git/tapir
perl -I/Users/leto/svn/parrot/lib ~/svn/parrot/t/harness ~/git/tapir/t/*.t
(kadath)(~/git/euler_bench master )$ cat run_parrot_harness 

cd ~/git/tapir
parrot t/harness.pir t/*.t