$sql ="select serial_number, item_id from serial_item_inv where serial_number=? and item_id=?";

$dbh = DBI->connect ($dbname, $user, $password, 'Oracle');
$sth = $dbh->prepare($sql);

print "Enter a Serial Number and an Item ID: ";
while (<>) {
        chomp;
        ($sn, $ii) = split /\s/;
	  $sth->execute($sn, $ii);
	  ($s, $i)  = $sth->fetchrow_array();
        print "Serial Number: $s Item ID: $i\n";
};

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