#!perl # Name: Calling procedures # Require: 5 # Desc: # require 'benchlib.pl'; sub foo { my($a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9) = @_; $a1+$a2+$a3+$a4+$a5+$a6+$a7+length($a8)+$a9; } &runtest(4, <<'ENDTEST'); $a = foo( 3, 4, 5, 6, 7, 8, 9,"a", 11); $b = foo( 5, 6, $a, 7, 8, 9, 10, 11, 12); foo($a, $b, 8, 9, 1, 2, 3, 4, $a); ENDTEST