#!/usr/bin/perl -w
 #use Strict;
 use DBI;
 
 print "Please Enter the Strain Name : \n";
 
 my $Strain = <>;


 $dbh = DBI->connect('dbi:mysql:sampledb','root','******')
 or die "Connection Error: $DBI::errstr\n";
 $sql = "SELECT feature.fastaId,feature.contigId,feature.orfId,strain.strainName,sequence.ntseq,sequence.aaseq from feature left join strain on feature.id=strain.id left join sequence on feature.id=sequence.id where strainName ='$Strain';";

 print "ss";
 $sth = $dbh->prepare($sql);
 $sth->execute
 or die "SQL Error: $DBI::errstr\n";
 while (@row = $sth->fetchrow_array) {
 print "@row\n";
 }