my $data_source = "dbi::Oracle:$sid";
  my $sqlhandle = DBI->connect("dbi:Oracle:host=$host;sid=$sid;port=1521", 
               $user, $password, { RaiseError => 1, AutoCommit => 0 })
      or die "Can't connect to $data_source: $DBI::errstr";

  my $func = $sqlhandle->prepare(q{
        BEGIN
            set define off;
        END;
  });
    
  my $result = $func->execute();

##</code><code>##

DBD::Oracle::st execute failed: ORA-06550: line 3, column 17:
PL/SQL: ORA-00922: missing or invalid option
ORA-06550: line 3, column 13:
PL/SQL: SQL Statement ignored (DBD ERROR: error possibly near <*> indicator at char 31 in '
        BEGIN
            set <*>define off;
        END;
  ') [for Statement "
        BEGIN
            set define off;
        END;
  "] at /blah/blah/Blah.pm line 348, <BLAHFILE> line 104133.