my $newdate = $dbh ->prepare(qq{SELECT dretitle,drereference,dredate,launchtime FROM vir_podcast WHERE launchtime BETWEEN to_date('2007-8-10 13:00:01','YYYY-MM-DD HH24:MI:SS') AND to_date('2007-8-10 13:29:59','YYYY-MM-DD HH24:MI:SS') AND datasource = ?});
my $startime = "2007-8-10 00:00:01";
my $stoptime = "2007-8-10 23:59:59";
$newdate ->execute(22);