foreign key perl code

for those who copied that foreign key delete program
that i included earlier,  i fat fingered on one line 
and if you try to delete just one fkey it'll delete 
them all...

in the sub delete_entries()

the line if ($#dbsel > 0) {

needs to be changed to:

 if ($#dbsel >= 0) {


my apologies,
  mikeo