#!/usr/bin/perl

# PERL MODULE
use DBI;

my $DB_NAME = "H3K36me3";
my $DB_USER = "root";
my $DB_PASS = "password";

my $dbh = DBI->connect("DBI:mysql:$DB_NAME","$DB_USER","$DB_PASS");

open (FILE,"@ARGV[0]")||die "usage: perl MySQL.query.pl <DB> ";
@array=<FILE>;
close(FILE);

foreach $line (@array){
	my ($Gene,$chr_id,$left,$right,$Strand,$ExonCount,$SizeKB)=split(/\t/,$line);
	$sql = "select count(*) from H3K36me3 where chrom =\"$chr_id\" AND start between $left AND $right";
	$sth= $dbh->prepare($sql);
	@Count=$sth->execute()||die "problem Here!\n";
	@Count=$sth->fetchrow();
	while (@Count = $sth->fetchrow()) {	
		print "@Count[0]\n";
	}
}