Hi All' I want to get oracle memory info(SHOW PARAMETER MEMORY) and I tried with this:

#!/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::er
+rstr";

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();
[download]

But This gives Error:

DBD::Oracle::st execute failed: ORA-00900: invalid SQL statement (DBD 
+ERROR: OCIStmtExecute) [for Statement "SHOW PARAMETER MEMORY"] at ./t
+estBase.pl line 26.
[download]

This works fine with SELECT commands, Badly I'm new to perl:DBI please give some help.

Expected OUT:
SQL> SHOW PARAMETER MEMORY

NAME                     TYPE     VALUE
------------------------------------ ----------- ---------------------
+---------
hi_shared_memory_address         integer     0
memory_max_target             big integer 11232M
memory_target                 big integer 11232M
shared_memory_address             integer     0
SQL>
[download]

Thanks