C:\Strawberry\perl\bin>perl -v

This is perl 5, version 28, subversion 0 (v5.28.0) built for MSWin32-x
+64-multi-t
hread

DBI
----------------------------------------------------------------------
+---
        CPAN: Module::CoreList loaded ok (v5.20180622)
(no description)
        T/TI/TIMB/DBI-1.642.tar.gz
        C:\Strawberry\perl\site\lib\DBI.pm
        Installed: 1.642
        CPAN:      1.642  up to date
DBD::Oracle
----------------------------------------------------------------------
+---
        CPAN: Module::CoreList loaded ok (v5.20180622)
(no description)
        Z/ZA/ZARQUON/DBD-Oracle-1.76.tar.gz
        C:\Strawberry\perl\site\lib\DBD\Oracle.pm
        Installed: 1.76
        CPAN:      1.76  up to date


The code i am using is as below

#!/usr/bin/perl
use DBI;
use DBD::Oracle;
# connect to MySQL...
$driver= "Oracle";
#$dsn = "DBI:$driver:ORCL;database=XXX;host=XXX:1521";
$dsn = "DBI:$driver:sid=XXX;host=XXX";
try:
$dbh = DBI->connect($dsn, "uname", "pwd");
#prepare and execute the SQL statement
$sth = $dbh->prepare("SELECT column FROM table WHERE TP_ID='X'");
$sth->execute;
$sth->finish();
except:
print "yes";
exit;

[download]

Discipulus added code tags March 5 2019

In reply to Re^2: Perl Interpreter Stopped Working . kernelbase.dll error by Anonymous Monk
in thread Perl Interpreter Stopped Working . kernelbase.dll error by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.