#!/usr/bin/perl -w

use strict;
use DBI;

my $dbh = DBI->connect( 'DBI:Oracle:charith',
                        'user',
                        'passwd',
                        {
                          RaiseError => 1,
                          PrintError => 1
                        }
                      ) || die "Database connection not made: $DBI::errstr";

my $sth = $dbh->prepare('SHOW PARAMETER MEMORY');
$sth->execute( );

my @row;
  while ( @row = $sth->fetchrow_array(  ) ) {
      print "Row: @row\n";
  }
  warn "Data fetching terminated early by error: $DBI::errstr\n"
      if $DBI::err;
    $sth->finish();
    $dbh->disconnect();