#! perl -w



use strict;
use warnings;


use DBI;


# my $dir = 'K:\\reports';
# my $count = 0;


# opendir DH, $dir or die "Cannot open $dir: $!";



# while (my $file = readdir DH)   {

#      next unless $file =~ /\.pdf$/;
      
#      my @newfile = substr($file,2,6);

#      process_records(@newfile);
             
# }

# closedir DH;



my $user = "username";
my $password = "password1";
my $data_source = "dbi::SQL Server:Interfaces";


my $dbh = DBI->connect($data_source, $user, $password, {
        PrintError => 1, 
        RaiseError => 0
    } ) or die "Can't connect to $data_source: $DBI::errstr";

my $sth = $dbh->prepare( q{
          SELECT * 
          FROM tableview 
          where field1 = '029622'}) or die "Can't prepare statement: $DBI::errstr";

my $rc = $sth->execute or die "Can't execute statement: $DBI::errstr";

  
print "Field names: @{ $sth->{NAME} }\n";

 
while (my @arr = $sth->fetchrow_array) {
     
     print "@arr\n";

}


die $sth->errstr if $sth->err;

$dbh->disconnect;