use DBI;
use strict;
use warnings;

my $dsn = "DBI:mysql:database=test;host=foo";
my $dbh = DBI->connect($dsn, 'root', 'abcd', {RaiseError => 1});
my $frozen = "1";
my $command = "insert into test(key,b) values(1,?)";
my $sth = $dbh->prepare($command);
$sth->execute($frozen);