#!F:/perl/bin/perl.exe

use DBI;


open(FH,"C:/ehealth/custom/Script/test");

foreach $fin (<FH>) {

my($final) = split(/\n/,$fin);

my $dbh = DBI->connect( 'dbi:Oracle:xxxxxxx','xxxxxx','xxxxxx',{
                        RaiseError => 1,
                        AutoCommit => 0
                        }
                      ) || die "Database connection not made: $DBI::errstr";


my $sql = qq(select c.name from NH_Element a, nh_group_members b, nh_group c where a.element_id = b.element_id and b.group_id = c.group_id and a.name='$final' ORDER by c.name);

my $sth = $dbh->prepare( $sql );

$sth->execute();

my($alias);

$sth->bind_columns( undef,\$alias);

while($sth->fetchrow_array()) {

print "$alias\n";

}

$sth->finish();

$dbh->disconnect();


}
close(FH);