#!usr/bin/perl

use DBI;
use strict;

my $dsn = 'DBI:Oracle:XE';
my $user = 'scott';
my $pass = 'tiger';
my $dbh;
my $sth;
$dbh = DBI->connect($dsn, $user, $pass) || die $dbh->errstr;

$sth = $dbh->prepare('select npi, entity_type_code from physician where npi = 1326041310');
$sth->execute();
while( my @line = $sth->fetchrow_array ) {print @line;}

$sth->finish();
$dbh->disconnect();