use Win32::ODBC;
use DBI;
use Date::Manip;
&Date_Init("TZ=EST");
my $now = localtime();
my $start_date		= &UnixDate(&ParseDate("$now"), "%m%/%d%/%Y");
$sqlstatement= qq (
	SELECT WorkOrd.WO2, WorkOrd.ClearDate
	from WorkOrd
	where WorkOrd.StatCode5 = 'C' and ( 
		WorkOrd.ClearDate is NULL or ( 
			WorkOrd.ClearDate  = ?
		)
	)
);
$sth = $dbh->prepare($sqlstatement) or  die "Could not prepare statement. Error:$sth->errstr()\n";
$sth->execute($start_date) or  die "Could not execute statement. Error:$sth->errstr()\n";
$sth->bind_columns(	\$WO2, \$ClearDate );