#!/usr/bin/perl -w

use strict;
use DBI;

my $dbh = DBI->connect("dbi:Oracle:host=localhost;sid=prod","scott","tiger");

$dbh->do (qq{insert into emp (ename, empno, sal)
                values ('SALMAN', 32, 20000) });

my $sth = $dbh->prepare(qq{ select ename, empno, sal from emp });
$sth->execute();
while (my($ename, $empno, $sal) = $sth->fetchrow_array()) {
    print "$ename $empno $sal\n";
}

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