#!/usr/bin/perl
use DBI;
use strict;


  my @date1 = ('2013-08-01 00:00:00.000','2013-08-02 00:00:00.000');
  my @date2 = ('2013-08-02 00:00:00.000','2013-08-03 00:00:00.000');
  
my $dbh = DBI-> connect('dbi:ODBC:DSN=TEST-DB1;UID=SA;PWD=pass') or die "CONNECT ERROR! :: $DBI::err $DBI::errstr $DBI::state $!\n"

my $sql2 = <<EOSQL;
SELECT Login_ID, AuditChrt_TimeStamp, Patient_ID
FROM TopsData.dbo.AUDT_AuditChrt
WHERE master.dbo.fn_sqlvarbasetostr(AuditChrt_TimeStamp) >= ?	
AND master.dbo.fn_sqlvarbasetostr(AuditChrt_TimeStamp) <= ?
EOSQL
my $sth = $dbh->prepare($sql2);

foreach my $i (0 .. @date1 - 1) {
	$sth->execute($date1[$i], $date2[$i]);
	my @row;
	while (@row = $sth->fetchrow_array) {  # retrieve one row at a time
		print join(", ", @row), "\n";
	}
} 

END {
	$dbh->disconnect if $dbh;
}