#! /opt/bin/perl
use strict;
use warnings;
use lib "/export/home/scripts/NetAct";
use loginmodules::NAnorth qw(&comein @comeincredentials $dbh);

our ($dbh, @comeincredentials);



&comein();
#$dbh = loginmodules::NAnorth::comein($dbh); FUNKTIONIERT NICHT!
#@comeincredentials = loginmodules::NAnorth::comein(@comeincredentials); FUNKTIONIERT NICHT!

my $sth = $dbh->prepare("SELECT * FROM $comeincredentials[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();