my $sth = $dbh->prepare(qq{
      SELECT TO_CHAR(SYSDATE, 'DAY') AS DAY
      FROM DUAL
   }) or die "Can't prepare: $DBI::errstr";