test_from_ruby.rb

require 'perl'
require 'benchmark'

n1 = 1000000;
n2 = 10000;

perl = Perl.new
perl.eval "use Foo; use Bar;"

Benchmark.bm(20) do |x|
  x.report("empty:") do
    1.upto(n1) do 
      perl.call "Foo::bar"      
    end
  end
  x.report("withdb:") do
    1.upto(n2) do 
      perl.call "Bar::rnd"      
    end
  end
end