Create utt4gic.pl

$chrCl = $ARGV[0];
$start = $ARGV[1];
$end = $ARGV[2];
$prtSwitch = $ARGV[3];

$chrN = $chrCl . ".znt4";

unless(open(FINP,$chrN)) {
        print "Unable to open chrN.znt file\n";
        }
        
binmode FINP;

$fop = 'mark_geneOut.' . $chrCl;
unless(open(FOP,"$fop")) {
        print "Unable to open mark_geneOut.$chrCl $fop file\n";
        exit;
}
binmode FOP;

$fcp = 'mark_gene.intCode.' . $chrCl;
unless(open(FCP,"$fcp")) {
        print "Unable to open mark_gene.intCode.chrN file $fcp\n";
}

$fisp = 'utt4ic.gene.list.' . $chrCl;
unless(open(FISP,">$fisp")) {
        print "Unable to open utt4ic.gene.list.$chrCl $fisp file\n";
              exit;
}

print ">$chrN $start  $end\n";

$span = $end - $start;
if($span > 100000 && $prtSwitch != 0) {
        print "\nspan error - > 10000 bases\n";
        exit;
        }

seek FINP, 4 * $start, 0;

# 127   ENST00000516763 0.0000000000
# 32    ENST00000334697 0.0000000000