I am using DBI,
when I close the statement handle, my program hangs.
If I leave it the way it is, it finishes but complains
about the open statement handle $dtcursor
I am connected to SYBASE and to SQL.

my($daysql) =
  "select convert(char(8),getdate(),112),convert(char(8,dateadd(month,
+1,getdate())),112)";<br>
   my($dtcursor)=$scb_db->prepare($daysql);<br>
   $dtcursor->execute;<br>
 my($ddate,$nextddate)=$dtcursor->fetchrow_array;<br>

 my($day) = substr($ddate,6,2);<br>
 print STDOUT "$ddate,$nextddate,$day\n";<br>

  close (OUT);  #files that I opened at start of program<br>
  close (ERROR);<br>
######################################################################
+#####################
######################################################################
+##################

print STDOUT "Normal Exit\n";<br>

 $apex_db->disconnect;<br
             die "Error disconnecting from database: <br>$DBI::err  $D
+BI::errstr\n" if $DBI::err
;<br>

 $scb_db->disconnect;<br>
             die "Error disconnecting from database: <br>$DBI::err  $D
+BI::errstr\n" if $DBI::err
;<br>
  exit (0);<br>
[download]