use DBI;
use Data::Dumper;

our $dbh = DBI->connect("dbi:Oracle:host=bla;sid=bla;port=1521","bla","bla",
  { AutoCommit => 1 });
die "Could not connect to database" unless $dbh;

our $q = 'SELECT field1, field2 FROM a_view WHERE param1 = 1 AND param2 = 2 AND foo_id = ? AND rownum < 5' ;

our $qp = $dbh->prepare($q);
$qp->bind_param(1, '152');
$qp->execute();

while (my $r = $qp->fetchrow_hashref) {
  print Dumper( $r );
}