Select Code to Download

my $sql = 'INSERT INTO prodotti (nome_prod , tipologia_prod) VALUES (?
+, ?)' ;
my $sth = $dbh->prepare ($sql);
my $res = $sth->execute ($key_nome_prod, $key_tipo_prod);
die ("Result is $res instead of 1: " . $sth->errstr) unless (defined $
+res && $res == 1);