#! /opt/bin/perl
use strict;
use lib "/export/home/scripts/NetAct";
use loginmodules::NAnorth;

login();

my $sth = $dbh->prepare("SELECT * FROM $values[5] WHERE rownum <11");
  $sth->execute();
  while (my $ref = $sth->fetchrow_hashref()) {
    print "Found a row: id = $ref->{'BSCID'}, name = $ref->{'name'}\n";
  }
  $sth->finish();

  # Disconnect from the database.
  $dbh->disconnect();