Select Code to Download

#! x:/xampp/perl/bin/perl.exe
use strict;
use DBI;
...
 
 my @res = $sth->fetchrow_array;
}

cgi-bin
Benchmark: timing 10000 iterations of bind, inline...
      bind:  7 wallclock secs ( 2.56 usr +  0.65 sys =  3.21 CPU) @ 31
+12.36/s (n=10000)
    inline:  7 wallclock secs ( 2.60 usr +  0.50 sys =  3.11 CPU) @ 32
+20.61/s (n=10000)

mod-perl
Benchmark: timing 10000 iterations of bind, inline...
      bind:  7 wallclock secs ( 3.02 usr +  0.61 sys =  3.63 CPU) @ 27
+51.03/s (n=10000)
    inline:  8 wallclock secs ( 3.10 usr +  0.62 sys =  3.72 CPU) @ 26
+91.07/s (n=10000)