[Melbourne-pm] SQL date calculations inside PERL

[Peter Machell]

The following is SQL I need to pump into an array. How do I do this  
without PERL seeing @foo as a global variable?
I'm connecting with DBI:ODBC

Thanks in advance,
Peter.


DECLARE @Date DATETIME;
SET @Date = FLOOR(CONVERT(FLOAT, GETDATE()));

SELECT  CM_PATIENT.FIRST_NAME, CM_PATIENT.SURNAME,  
CM_PATIENT.PHONE_MOBILE,
	PRAC.Name,
	APPT.[When]
	
	FROM CM_PATIENT,PRAC,APPT
			
		WHERE CM_PATIENT.PATIENT_ID = APPT.PatientID
		AND APPT.PractitionerID = PRAC.PractitionerID
		AND APPT.[When] BETWEEN @Date + 1 AND @Date + 2
	
	ORDER BY APPT.[When];