#!/p0/brownda/Software/perl-5.8/bin/perl

use strict;

use DBI;

my $user = 'sa';
my $passwd = 'sa';
my $dsn = 'DBI:Pg:host=localhost;dbname=sa';

sub fatal
{
  die join '', @_;
}

sub dump_table_text
{
  my $dbi = shift(@_);
  my $sql = shift(@_);

  my $sth = $dbi->prepare($sql)
    or return 0;

  $sth->execute(@_)
    or return 0;

  while ((my @row = $sth->fetchrow_array))
    { print (join ', ', @row); print "\n"; }

  print "\n";
  return 1;
}

my $dbh = DBI->connect($dsn, $user, $passwd)
  or fatal 'Unable to connect to database';

my $select_sql = 'select snum, sname, major, level, age from student';
$select_sql .= ' where level = $1';

for (my $i = 0; $i < 64; $i++)
{
  foreach my $level (('FR', 'SO', 'JR', 'SR'))
  {
    dump_table_text($dbh, $select_sql, $level)
      or fatal 'Unable to query student database';
  }

  dump_table_text($dbh, 'select * from pg_prepared_query_plans()')
    or fatal 'Unable to query pg_prepared_query_plans';
}