Thanks but can you please please help me by doing the corrections in the code I gave. Please

No, that would require that I dummy up a database... OTOH what marto said

OTOH I feel if you've mastered cross posting :) you ought to be able to handle adding "print" to your program :)

OTOH if you add  DBI->trace(1); you'll get debug output that shows if the query is a success and how many rows are returned

OTOH you can eliminate filtering you do in your program with a better SQL query, see Re^6: SQL Database Table to Perl Script, DBI recipes