Select Code to Download

$ ./bm_foo.pl -N=10000
Benchmark: timing 10000 iterations of insert_and_select_foo_ora_sp, in
+sert_and_select_foo_ora_sql...
insert_and_select_foo_ora_sp: 30 wallclock secs (10.17 usr +  0.38 sys
+ = 10.55 CPU) @ 947.87/s (n=10000)
insert_and_select_foo_ora_sql: 20 wallclock secs ( 5.41 usr +  0.24 sy
+s =  5.65 CPU) @ 1769.91/s (n=10000)

Total Elapsed Time = 30.88130 Seconds
  User+System Time = 10.92130 Seconds
...
 0.82   0.090 11.360  10002   0.0000 0.0011  Benchmark::__ANON__
 0.82   0.090  0.090  10004   0.0000 0.0000  DBI::st::TIEHASH
 0.73   0.080  0.080   9999   0.0000 0.0000  DBD::_mem::common::DESTRO
+Y

Total Elapsed Time = 20.02347 Seconds
  User+System Time = 6.393479 Seconds
...
 0.16   0.010  0.010      8   0.0012 0.0012  Pod::Parser::BEGIN
 0.16   0.010  0.020      6   0.0017 0.0033  Pod::Text::BEGIN
 0.16   0.010  0.010     23   0.0004 0.0004  vars::import

#!/usr/bin/perl

...
         );

__END__

-- pkg_foo.sql

...

END pkg_foo;
/