Select Code to Download

use Storable qw(freeze);
use DBI;
...
my $command = "insert into test(a,b) values(1,?)";
my $sth = $dbh->prepare($command);
$sth->execute($frozen);

use DBI;
use strict;
...
my $command = "insert into test(key,b) values(1,?)";
my $sth = $dbh->prepare($command);
$sth->execute($frozen);