What oracle version?

Does the same SQL work when given directly to the server (via SQLplus, for example)?

Catch perl errors, DB errors; what do they say? (your code checks some but not all)

(after the connect line, perhaps insert:

$dbh->{RaiseError} = 1;
[download]