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

This is perl 5, version 28, subversion 0 (v5.28.0) built for MSWin32-x64-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;