Shell Programming and Scripting

#!/usr/bin/perl
 
 use DBI; 
 
       $sqlstatement= "select Name from Protein;"; 
 
    #open connection to Access database 
    $dbh = DBI->connect('dbi:ODBC:driver=microsoft access driver (*.mdb);dbq=C:\Perl\eg\db1.mdb'); 
 
    #prepare and execute SQL statement 
 
    $sth = $dbh->prepare($sqlstatement); 
    $sth->execute || 
    die "Could not execute SQL statement ... maybe invalid?"; 
 
 
    #output database results 
 
    while ( $ref = $sth->fetchrow_hashref($Name) ) 
{
    print "$$ref{'Name'} \n";
}
 
 
$filename= 'C:/Perl/eg/members.txt';
open (FILE,$filename) or die $!;
while (<FILE>){
# split each input line; words are separated by whitespace
  for $word (split)
  {
   print $word . "\n";
  }
}
close (FILE);