# apt-get install libdbi-test-perl

#!/usr/bin/perl
#
 
use strict;
use DBI;
 
#There are many other security measures
# - Also, don't forget to use a 'username' and 'password' for the DB
# - Do Not use 'sa' and ''.
 
##################### DBI configuration ########################
my $hostip   = "192.168.200.221";
my $username = "adminuser";
my $password = "password";
my $sid      = "SOA01";
my $dsn = "DBI:Oracle:host=$hostip;sid=$sid";
my %attr = ( RaiseError => 1, AutoCommit => 0 );
 
# howto 1
my $dbh = DBI->connect ($dsn, $username, $password, \%attr) || die "Database connection not mode : $DBI::errstr";
# howto 2
#my $dbh = DBI->connect ("DBI:Oracle:host=$hostip;sid=$sid", $username, $password, \%attr);
 
my $que = "select itemcode from tb_item where rownum < 5";
my $itemcode;
#
my $sth = $dbh->prepare($que);
$sth->execute() || die $sth->errstr;
while( ($itemcode) = $sth->fetchrow() ) {
    print "select * from tb_studyunit where itemcode=$itemcode ;\n";
}
$sth->finish();
 
$dbh->disconnect;