#get dates in right format

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

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

  close (OUT);  
  close (ERROR);

print STDOUT "Normal Exit\n";

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

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