#!c:/perl/bin/perl -w
use DBI;
use strict;

my $stmnt = "select * from Some_Table where day > \'01 Apr 2002\'";
my $DSN = 'driver={Microsoft ODBC for Oracle};
   Server=Oracle_Server_Name; 
   uid=user;pwd=password;';
my $dbh  = DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";
my $sth = $dbh->prepare($stmnt);
$sth->execute;
while (@row_ary = $sth->fetchrow_array()){
  print "@row_ary\n";
}
$dbh->disconnect;