Select Code to Download

#!/usr/bin/env perl
use warnings;
...
$sth->execute( undef, "3.2", 4950 );
$sth->execute( undef, undef, 3211 );
$sth->execute( undef, undef, 3876 );

SELECT Rating, AVG(Downloads)
  FROM Test_Table
  GROUP BY Rating

*** Error in `perl': free(): invalid next size (fast): 0x00000000036c1
+e20 ***
======= Backtrace: =========
...
7fff231db000-7fff231fd000 rw-p 00000000 00:00 0                       
+   [stack]
7fff23200000-7fff23201000 r-xp 00000000 00:00 0                       
+   [vdso]
ffffffffff600000-ffffffffff601000 r-xp 00000000 00:00 0               
+   [vsyscall]