Select Code to Download

#!/usr/bin/perl
use warnings;
...
    $dbh->do("insert into DD values (0.16)");

}

$VAR1 = bless( {
                 'FetchHashKeyName' => 'NAME',
...
                 'Err' => \undef
               }, 'DBI::db' );
Bus error