Mir fällt auf, dass du dein ...->execute nicht prüfts. Vielleicht gibt es da eine Rückgabe!

Perl meint dazu in der doc:
$rv = $sth->execute or die $sth->errstr;